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

my $p = Park->new; # accept all defaults
$p->spoiler1; # place parks in the correct solution
$p->bump_and_run; # time 'bump' until completion
print $p->str_status; # print some stats
print $p->str_grid; # print the grid visually

exit(0);