main@m=do s@(c:_)<-getLine;putStrLn$c:' ':last s:' ':show(sum[1|x<-s,x==c]);m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page