line-mode
( " apples" )
catenate #(list+list)
@1
256
base #(list to num)
binary #(num to list)
5
drop
counter
get
not
f:
    init