f(a:b:c)=min a b:f c
f a=a
m@main=getLine>>=putStrLn.f>>m