問題は、以下のＵＲＬにあります。
http://golf.shinh.org/p.rb?duplicate+lines

Golf を意識せずに作るのは、楽になってきたぞ。

main=do l<-getLine;putStrLn l;putStrLn l>>main

で、少し削ってみた。

p=putStrLn;main=do l<-getLine;p l;p l>>main

知らなかったが、m@main としておけば、再帰で1バイト削れることがわかった。
さらに、ＤＯ記法を使ってしまっていたので、>> も使わなくて良かった。。。

ということで、

p=putStrLn;m@main=do l<-getLine;p l;p l;m

上記のように　ゴリッと絞れた。
でも、最短ではなくても、こっちの方がカッコいいなあ。

main=interact$unlines.(>>= \s->[s,s]).lines