正直　解けないんじゃないかと思っていた問題。
久しぶりに見たら、5分で解けた♪


【初稿】: 53バイト

f[]=[]
f(x:y:s)=y:x:f s
main=interact$unlines.f.lines

【修正後1】: 50バイト

g=getLine
p=putStrLn
m@main=do a<-g;b<-g;p b;p a;m

【修正後1】: 46バイト

g=getLine
p=putStrLn
m@main=g>>=(g>>=p>>).p>>m