main=interact$f.lines
f[x,y]=unlines[x>>= \c->'(':b:a:c:")"|a<-y,b<-x]