n,*a=$<.read.split.map &:to_i s=->d{d.sort_by{|e|d[0].lcm e}} l=a.size l.times{|i|d[i,l]=s[d[i,l]]} $><