chop($s=<>);chop($t=<>);print$s,"_$t"x<>