main=interact$u.take 48.tail.iterate(u.f.map f.lines)
f(a:x)=x++[a]
u=unlines