#!/usr/bin/perl -w

my $i = 1;

sub aout
{
    if( system( "./lorenz_2009-01-02 --ave=$i --summary --stop=${i}00" )) { die( $! ); }
}

while( $i < 10000 )
{
    aout;

    my $i1 = $i * 1.02;
    $i1 = int( $i1 + 0.5 );
    if( $i1 == $i )
    {
	++$i;
    }
    else
    {
	$i = $i1;
    }
}