ascii-digits
tail
7
range1
5
diff #(list-elem)
    double
    binary #(num to list)
m2
cartesian-product
    flatten
        double
        dec
        +
    b3
    scan
m4
    is-digit
f1
    length
b1
sort #(list,block)
unlines