#!perl -lp
<>=~$/;$_=$`x($a=<>).reverse$`x-$a