(map[prn(count _ a)" "_](dedup:= a(sort <(tokens:rem[pos _(+"~"(range #\!#\`))](downcase:allchars:stdin)))))