#!/usr/bin/perl

use strict;
use warnings;

use Trainlist;
use Wayside;

my ( $t0, $t9 ) = @ARGV;

my $trains = Trainlist->new;

my $wayside = Wayside->new($t0);

while ( $wayside->updateto($t9) ) {
    $trains->update($wayside);
}
