m@main=mapM(\x->getChar)[0..450]>>=print.(`div`3).length.words>>m