$b=$a=pop;while($a>1){while(++$i<$a){unless($a%$i){$a/=$i;$i=1;}}print "$a\n";$i=1;$b=$a=$b/$a;}