sub test {
    my $i = @_ ? shift : die("Missing argument i.");
} # test