a=split($1,A,_){b=split($2,B,_)
for(f=i=0;i++<a;)for(j=0;j++<b;)$++f=A[i]B[j]}1