#!/usr/bin/perl
use strict;
use warnings;

my $two = 1;
my $three = 1;
my $four = 1;
my $five = 1;

# right aligned with elipses if the field is overrun
format STDOUT = 
@>>>>>>... @>>>>>>... @>>>>>>... @>>>>>>...
$two, $three, $four, $five
.

while ($two < 20000)
{
  $two *= 2;
  $three *= 3;
  $four *= 4;
  $five *= 5;
  write;
}