5
binary #(num to list)
8
repeat-product
    binary #(list to num)
    17
    divides
    ( " X" )
    get
m5
81
chunks
unlines