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