m@main=getLine>>=print.(0+).read.concat.words>>m