import List m@main=getLine>>=putStrLn.nub.scanl1 max>>m