Test harness

sub time1 { my ($function) = @_; my $stop; my $start = time; $function->(); $stop = time(); say $stop - $start; }