#!perl

# Name: Calling procedures
# Require: 4
# Desc:
#


require 'benchlib.pl';

sub foo
{
    $_[0] * 2;
}

&runtest(25, <<'ENDTEST');

   &foo(3);
   &foo(5);
   &foo(8);

ENDTEST