import List main=interact$unlines.snd.mapAccumL(#)(0,0).z.sort.map r.z.lines z=zip[1..] r(i,x)=(-(read$last$words x),i,x) (i,x)#(j,(y,_,z))|x==y=((i,x),i%z)|0<1=((j,y),j%z) x%y=show x++" "++y