public ParseQualIdent(text : string) : list[string]
{
    def str = System.Text.StringBuilder();

    def parseComment(chars, name, continuation)
    {
        match (chars)
        {
            | '\n' :: tail
            | '\r' :: '\n' :: tail
            | '\r' :: tail => continuation(tail, name)
            | _ => parseComment(chars, name, continuation)
        }
    }

    def parseMultilineComment(chars, name, continuation)
    {
        match (chars)
        {
            | '*' :: '/' :: tail => continuation(tail, name)
            | _ => parseMultilineComment(chars, name, continuation)
        }
    }

    def parse(chars, name : list[string])
    {
        match (chars)
        {
            | '/' :: '/' :: tail => parseComment(tail, name, parse)
            | '/' :: '*' :: tail => parseMultilineComment(tail, name, parse)
            | '.' :: tail => def x = str.ToString(); str.Length = 0; parse(tail, x :: name);
            | x :: tail when char.IsLetterOrDigit(x) || x == '_' => ignore(str.Append(x)); parse(tail, name);
            | _ :: tail => parse(tail, name);
            | [] => str.ToString() :: name
        }
    }

  // Explode преобразует строку в список символов
    parse(text.Explode(), []).Rev()
}

ANS>условие ? то-то : что-то;
ANS>

if (условие) то-то else что-то

begin
  WriteLn('2 + 2 = ', 2 + 2);
end.

public ParseQualIdent(text : string) : list[string]
    def str = System.Text.StringBuilder();
    def parseComment(chars, name)
        match (chars)
            | '\n' :: tail \
            | '\r' :: '\n' :: tail \
            | '\r' :: tail => parse(tail, name)
            | _ => parseComment(chars, name)
    and parseMultilineComment(chars, name)   
        match (chars)
            | '*' :: '/' :: tail => parse(tail, name)
            | _ => parseMultilineComment(chars, name)
    and parse(chars, name : list[string])
        match (chars)
            | '/' :: '/' :: tail => parseComment(tail, name)
            | '/' :: '*' :: tail => parseMultilineComment(tail, name)
            | '.' :: tail => def x = str.ToString(); str.Length = 0; parse(tail, x :: name)
            | x :: tail when char.IsLetterOrDigit(x) || x == '_' => ignore(str.Append(x)); parse(tail, name)
            | _ :: tail => parse(tail, name)
            | [] => str.ToString() :: name

    // Explode преобразует строку в список символов
    parse(text.Explode(), []).Rev()

VD>Я кого хочешь, в чем хочешь прощу, если мне обяснят суть этой вещи . Я уже видел подобный код в компиляторе, но так его и не понял к своему стыду. Поясни, плиз, его смысл.

// здесь функция parse недоступна
def parseComment() { parse() } // ошибка
def parse() { }
// локальные функции и значения доступны в коде следующем за их объявлением
// and как бы объединяет объявление нескольких локальных функций в одно объявление
// и они становятся доступными друг для друга
def parseComment() { parse() } // ok
and parse() { }