for(m=[k=1],i=2e4;m[m[l=readline(r=k)]=/\d+$/(l)]=i--;)for([j,v]in m[i]&&m)v==i&&k++&print(r,j)