#!/usr/bin/perl

$num = 317584931803;
for ($i = 2; $i < $num; $i++) {
  if ($num % $i == 0) {
    $num = $num / $i;
    print "$i:";
  }
}

print $num;

print "\n";