read-nums
extract-array
nip-b
range1
m:
    3
    *
    power-of-2
    push-b
    *
    13
    %
    space
    times #(list)
    push-a
    ","
    split
    last
    show-line