read-nums
sort #(list)
    22447
    double
        6
        base #(num to list)
    t2
    split
    length
b6
sort #(list,block)
unlines