use strict;
use warnings;

my ($based_on, $top) = @ARGV;
$based_on ||= 'tp';
$top ||= 1;
print "$based_on $top\n";