sub fred {
    my $self = shift;
    $self -> parse
      or goto SORRYFRED;
    while ( $self -> codegen ) {
        $self -> codeprint
          or goto SORRYFRED;
    }
    return 1;
SORRYFRED:
    print STDERR $self -> formatmsg;
    $self -> { SEVERITY } < 2
      or $self -> cexit; # case of fatal
    0; # case of warning
}