procedure main(A)
   WC := &letters++&digits
   n := \A[1] | 10
   wt := table(0)
   write("The ",n," most common words are:")
   every !&input ?  while tab(upto(WC)) do wt[map(tab(many(WC)))] +:= 1
   every p := !reverse(sort(wt,2))\n do write(right(p[2],8),": ",p[1])
end