$a=pop;while(++$i<$a){unless($a%$i){$a/=$i;$i=1;}}print $a;