m@main=getLine>>=putStrLn.fst.head.lex>>m