2
range
8
repeat-product
m:
    binary #(list to num)
    show-line