main=interact$foldr(\h t->h:filter(>=h)t)""