#!perl -pl
/ .* (.*) /;$_+=$1while$_<1e8?$_%$'-$&:~($_=-1)