import GHC.IO.Encoding
m@main=do
setLocaleEncoding latin1
s<-getLine
putStrLn$drop 3$do v:t<-words"\x7f\xff azAZ09 {~[`:@!/";" / "++shows(sum[1|c<-s,(a,b)<-zip(v:t)t,a<=c,c<=b])"B"
m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).