#! /usr/bin/perl
$collist = "";
foreach $i (0..1000) {
	$collist .= sprintf(", c%05d int", $i);
}
$collist = substr($collist, 2);

printf "drop schema if exists test cascade;\n";
printf "create schema test;\n";
printf "create table test.p ($collist) partition by list (c00000);\n";
foreach $i (0..2999) {
	printf "create table test.t%04d partition of test.p for values in (%d);\n", $i, $i;
}