m@main=do l<-getLine;putStrLn$l%l;m
(a:b:c)%(d:e)=d:c%e
_%x=' ':x