2
chunks
m:
    product
    binary #(num to list)
    reverse
    binary #(list to num)
    binary #(num to list)
    reverse
    map-show
    16
    ljust
}
transpose
m:
    s( " *$" "" )
    show-line