#!perl -pl
$s="";/ /;$s=$_%$'.$s,$_/=$' while$_|0;$_=$s