( "LOLLI" )
show-space
dup
@0
( "POP " "OH " "\xf4\xea4\xbd\x82!dt#<g" )
255
base #(list to num)
256
base #(num to list)
@4
4
pick
wrap-stack
6
range
1
4
4
3
make-array
catenate #(list+list)
over
select
wrap-stack
dup