t []=[]
t (x:y)=x:d y
d []=[]
d (x:y)=t y
main = getContents>>=mapM putStrLn.t.lines