procedure main()
   wchar := &lcase ++ &ucase ++ '\'-'
   wordlength := list(10,0)	# initial zero counts
   while line := read() do {
      i := 1
      while j := upto(wchar,line,i) do {
         i := many(wchar,line,j)
         wordlength[*line[i:j]] +:= 1
         }
      }
   write("word length   count:\n")
   i := 0
   while i < *wordlength do {
      i +:= 1
      write(left(i || ":",12),right(wordlength[i],3))
      }
end
