(phixonline)-->
with javascript_semantics
sequence lc = repeat(0,#7E)
--string text = get_text(command_line()[$])
string text = join(unix_dict(17))
for i=1 to length(text) do
integer ch = text[i]
if ch=-1 then exit end if
if ch>=' ' and ch<#7F then
lc[ch] += 1
end if
end for
integer count = 0
for i=' ' to #7E do
if lc[i]!=0 then
count = mod(count+1,10)
printf(1,"'%c': %-2d%s",{i,lc[i],iff(count=0?"\n":" ")})
end if
end for