(caller)[3] eq 'fib' or ($nth !~ m{^\d+\z}a or @_) and die $fib_die_msg;