import List main@m=getLine>>=putStrLn.f>>m f l=show(maybe 0 id$lookup l$zip k[0..])++" "++map last k where k=sort$take(length l)$iterate(\(x:xs)->xs++[x])l