#!perl -lp
$;=!/ /;$;=$_%$'.$;,$_/=$' until!int;$_=$;