正直　解けないんじゃないかと思っていた問題。
久しぶりに見たら、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

一度、interact から離れてもだめだった。。。


【その他1】110バイト

f n[x]=show n++[x]
f n(x:s)|x==s!!0=f(n+1)s|1>0=f n[x]++f 1s
g(n+1)l=putStrLn l>>g n(f 1l)
main=getLine>>=g 12

問題はここ

http://golf.shinh.org/p.rb?sort+characters

結構苦労したが、 sorted を使えば良いことに気づいた。
LIST と 文字列を分けて考えなければいけないことを知った。。。

【初稿】

s=raw_input()
m=sorted(s)
print ''.join(m)

【修正後1】 33 バイト

print''.join(sorted(raw_input()))

exec と掛け算を使えば、ループが出来ることを知った。
しかし、最短の56 バイトは意味が掴み切れていない。。。

ということで、投稿はしていないが、５９バイトになった。

【修正後1】59 バイト

s='apple'+'*'*25
exec"print s;s=s[-1]+s[:-1];"*(input()+1)

http://betweens.blog.shinobi.jp/Entry/114/

上記を足がかりに、問題を解いてみた。

問題は、ここ。
http://golf.shinh.org/p.rb?delete+last+line

【初稿】73 バイト

import sys
a=[]
for l in sys.stdin:a.append(l)
for l in a[0:-1]:print l,