main=interact$unlines.scanl1(%).lines
p%q=max((p++p)#q)$p#cycle q
[]#_=[]
x#(y:z)=y:z#x