#!/usr/bin/perl

print <<EOM;
CREATE SCHEMA lots_of_functions;
EOM

for my $i (1 .. 3000)
{
	print <<EOM;
CREATE FUNCTION lots_of_functions.x$i() RETURNS int4
   AS 'SELECT 1' LANGUAGE sql;
EOM
}