5
binary #(num to list)
4
repeat-product
    inits
        show-line
        product
        printable-ascii
        get
    m4
m3
transpose
unlines