0
pop-a
lines
m:
    9
    over
    read-nums
    60
    base #(list to num)
    tuck-a
    save-a
    -
    @3
    base #(num to list)
    0
    left-cons
    ascii-digits
    2
    repeat-product
    select
    ":"
    join
    new-line