#!/usr/bin/perl

foreach $value (0..199999) {

$value = 199999-$value;

$word = `/usr/games/number $value`;

chomp $word;
$word =~ s/[^a-z]//g;

$len = length($word);
$four = $len*$len*$len*3;

print "$value ", $four-$value, "\n";
 
}