my $based_on = $ARGV[0] || 'tp';
my $top = $ARGV[1] || 1;