m@main=mapM(\_->getChar)[1..451]>>=print.(`div`2).length.filter(=="*").words>>m