∇ 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
}