print$n/$m|0,$"while($n,$m)=m???glob<>:($m,$n%$m),$m