m@main=getLine>>=putStrLn.(>>"0")>>m