#!/usr/bin/perl
use warnings;

my ( $number )  = read_user_number();
my ( $factors ) = factor( $number );
output_number( $factors );