f(a:_:b)=a:"<=>"!!min(length[b!!0..a])2:f b
f z=z
m@main=getLine>>=putStrLn.f>>m