lines
            left-uncons
            catenate #(list+elem)
        m2
        transpose
    b3
    2
    times #(eval)
    dup
b5
48
times #(eval)
wrap-stack
init
m:
    unlines
    show-line
    show-line