#!perl -p
($x,$y,$_)=/\d+/g;$_+=$;while$;=$x--*$y--;$_.=$/