my $token = 'do_' . lc NextWord (\$line);
    
    die "Internal parsing error. $token is not recognised\n"
        if ! $self->can ($token);

    return $self->$token ($line);

##</code><code>##

sub do_hi {
    return "Hello World";
}