#!perl -w
use strict;

use Acme::Perl::VM;

sub f{
    my($x, $y) = @_;
    print $x, ' - ', $y, "\r";
    return $x * $y;
}

run_block {
    local $| = 1;

    my $sum = 0;
    foreach my $i(1 .. 10){
        foreach my $j(1 .. 100){
            $sum += f($i, $j);
        }
    }

    print "\n", $sum, "\n";
};

print B::timing_info(), "\n";