sub _default {
    my ( $state, $event, $args, $heap ) = @_[ STATE, ARG0, ARG1, HEAP ];
    $args ||= [];    # Prevents uninitialized-value warnings.
    print "default: $state = $event (@$args)\n";
    return 0;
}