m@main=getLine>>=putStrLn.scanl1 max>>m