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

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