m@main=getLine>>=putStrLn.f.reads>>m
f[(a,c:x)]|b<-read x,g<-show.div(lcm a b)=g b++c:g a