line-mode
( " apples" )
catenate #(list+list)
@1
256
base #(list to num)
counter
shift-left
48
shift-right
even
    init
f1