line-mode
read-nums
sort #(list)
group
    length
m1
sort #(list)
reverse
map-show