#! /usr/bin/perl
use Math::Pari qw(:int factorint);
print factorint($_), "\n" for @ARGV;