$_=<>,chop,<>=~/-?/,$_=$&?reverse:$_,print$_ x$',"\n"while<>