#!/usr/bin/env perl

use strict;
use warnings;

my $num = shift;

if(!$num) {
  die "Usage: $0 <num>";
}

print <<EOT;
create table if not exists m$num (id int);
EOT

for (1..$num) {
print <<EOT;
create table if not exists c${num}_$_ () inherits (m$num);
insert into c${num}_$_ values ($_);
EOT
}