dup
        45
        >
        -
    m4
        s( "p-" "pq" )
        lines
        reverse
        transpose
        unlines
    b5
    4
    times #(eval)
b6
72
times #(eval)