#!perl -lp
$_=!/ /;$==$`;1while$_=$=%$'.$_,$=/=$'