for f in `seq 100 100 1000`; do
  dropdb jjanes; createdb
  perl -le 'foreach my $x (1..200) {print "create table foobar$x (", (join ",", map "col$_ int default 98", 1..'$f'),");" };' |psql > /dev/null
  time pg_dump -s |wc
done