perl -le '$x=shift; for($y=2; $y<=$x; $y++) { next if $x%$y; $x/=$y; print $y; redo }' 7