m@main=do s<-mapM(\_->getChar)x;print$sum[1|i<-x,"***"==[s!!(i+j)|j<-[0,2,42]]];m
x=[0..450]