sub odd {
    return 1   if  "1" eq $_[0];
    die "Can't test the oddness of anything but '1'.\n";
}