is_numeric($_[0]) && $_[0] > 0 or die "Invalid input, give me a positive number\n";
# is_numeric taken from perlfaq4