#!perl -pl
$n=$_;$d=2;0while$n%$d?++$d**2<$n:($n/=$d)%$d?$_-=$_/$d:1;$_-=$_/$n%$_