line-mode
words
    dup
    read-nums
    length
        init
        dup
    f2
m5
sort #(list)
tail
reverse
    sum
    50
    %
b3
sort #(list,block)
group
    head
    @0
    length
    show
    catenate #(list+list)
m5
unwords
"1"
diff #(list-list)