m@main=do s<-mapM(\_->getChar)x;print$sum[1|i<-x,"***"==[s!!(i+j)|j<-[0,2,42]]];m x=[0..450]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page