m@main=getLine>>=putStrLn.unwords.f.words>>m f[a,b]=[x:y:[]|x<-a,y<-b]