lines
        init
        "#"
        catenate #(list+list)
    m3
    reverse
    transpose
b4
4
times #(eval)
unlines