f=*r=0..100 $<.drop(2).map{|l|x,y=l.split.map &:to_i;f[x],f[y]=f[y],f[x]} p r.map{|k|a=k;~r.find{k==a=f[a]}}.reduce &:lcm