{for(i=gsub(FS=_,_);--i;)print o=$i o$i}