space
0
left-cons
push-b
dec
repeat-product
    push-a
        95
        &
    m2
        +
    z1
m5
show-lines
show-line
over
split
left-uncons