RosettaCodeData/Task/Word-frequency/KAP/word-frequency.kap

∇ stats (file) {
  content ← "[\\h,.\"'\n-]+" regex:split unicode:toLower io:readFile file
  sorted ← (⍋⊇⊢) content
  selection ← 1,2≢/sorted
  words ← selection / sorted
  {⍵[10↑⍒⍵[;1];]} words ,[0.5] ≢¨ sorted ⊂⍨ +\selection
}