int n,a[1d5];{rd(n,a(n));rep(i,n-1)swap(a[i+1],a[argmin[j=i+1---n-1](lcm(a[i],a[j])*1e4+a[j])]);wt(a(n));}