#!/usr/bin/perl -w

use strict;

my $funcbody = <<EOF;
(x, y) {
    var a = x+y;
    var b = x-y;
    var c = a+b;
    return ( 2*c-1 );
}

EOF

my $line_count = 50000;
my $percent = -1;
my $i;
for ( $i=0; $i<$line_count; $i++ ) {
    print "function xyzzy_" . $i . $funcbody;
}
