( "o" )
clean-split
@1
join
init
save-a
    pop-b
    2
    range
m3
fold-product
m:
    push-a
    swap
    compress
    show-line