#!/usr/bin/perl -w
# uniform: generate tweets with uniform party distribution (100 tweets per party)
# usage: uniform
# 20120305 erikt(at)xs4all.nl

$MAX = 100;
@parties = qw(pvv vvd cda pvda gl d66 sp pvdd cu sgp 50plus);

foreach $p (@parties) {
   for ($i=0;$i<$MAX;$i++) { print "$p $p\n"; }
}

exit(0);
