a:=list
File standardInput contents lowercase foreach(c,if(c==32or c>96and c<123,a push(c asCharacter))a)join split map(v,Map atPut(v,if(e:=Map at(v),e+1,1));v)unique sort map(v,v>""and writeln(Map at(v)," ",v))