【問題】

http://golf.shinh.org/p.rb?rotate+lines

とりあえず、動くところまで。

main=do l<-getLine;interact$unlines.lines;putStrLn l

cat する部分は、interact id で書けることを思い出したので、

main=do l<-getLine;interact id;putStrLn l

短くはないけど、こういうパターンも出来た。。。

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

main=getLine>>=(\x->interact id>>putStrLn x)