[V] Хорош ли синтаксис языка программирования V?

?Use("include.vsc") // присоединяет файл с кодом, исключает дублирование
_Счетчик Отобразить(_Строка) импорт _ОтобразитьСтроку;
 
?Шаблон Клон-Тип1(
    Тип1 Клон(Тип1 пА):
        Тип1 лРез;
        __ИзСтроки(лРез, пА.__ВСтроку, 0);
        =лРез;
    .
)
?Шаблон на-Тип1(
    Тип1 на(Тип1 *пА):
        =пА;
    .
    Тип1 на(Тип1 !пА):
        =пА;
    .
)
~ТРезультат(_0 А, Б, И):
.
~ТРезультат2(_0 А):
.
 
-> АвтоШаблоны(): // начало исполнения
    ТРезультат лТРезультат; лТРезультат.А=123; лТРезультат.Б=777; лТРезультат.И=100500;
    Отобразить(лТРезультат.Клон.на.__ВСтроку+"\н"); // "Клон" и "на" автоматически создаются
    ТРезультат2 лТРезультат2; лТРезультат2.А=999;
    Отобразить(Клон(на лТРезультат2).__ВСтроку+"\н"); // "Клон" и "на" автоматически создаются
    <-0; // возврат кода завершения
.

?Шаблон Клон - Тип1(
Функция Клон(Тип1 Т):
    Тип1 лРез;
    ?Для Тип1.НомерПоля (
        ?Если Тип1.НомерПоля не * (
            лРез.?Имя поля Тип1.НомерПоля = (Т.?Имя поля Тип1.НомерПоля);
        )
        ?Если Тип1.НомерПоля = * (
            :{
                *лА=(Т.?Имя поля Тип1.НомерПоля);
                {Тип1 лРез, _лА_ *П: лРез.?Имя поля Тип1.НомерПоля >< П; =1}(лРез, Клон(Т.?Имя поля Тип1.НомерПоля));
            } 
        )
    )
    =лРез;
.
)

?Шаблон ЗаполнитьИз - Тип1 Тип2(
Функция ЗаполнитьИз(Тип1 Л, Тип2 П):
    *лРез=0;
    ?Для Тип1.НП1 (
        ?Для Тип2.НП2 (
            ?Если имена Тип1.НП1 и Тип2.НП2 равны (
                ?Если типы Тип1.НП1 и Тип2.НП2 равны (
                    ?Если Тип1.НП1 не пользовательский (
                        Л.?Имя поля Тип1.НП1 = (П.?Имя поля Тип2.НП2);
                        лРез=лРез+1;
                    )
                    ?Если Тип1.НП1 это пользовательский (
                        :{
                            *лА=(Л.?Имя поля Тип1.НП1);
                            {Тип1 Л, _лА_ *П: Л.?Имя поля Тип1.НП1 >< П; =1}(Л, Клон(П.?Имя поля Тип2.НП2));
                            лРез=лРез+1;
                        } 
                    )
                )
            )
        )
    )
    =лРез;
.
)

:{
        *=глТСоСписокКЗ("А"=>1)("Б"=>2)("Т"=>"Привет ")("Б"=>"Пока ");
        *лФн={_0 А,Б, _Текст Т:=_С"Т=\"" + Т + "\" А="+ _С А + " Б="+ _С Б};
        *лП=("А"=>777)("Б"=>128)("Т"=>"Привет ");
        отображение(лП.Выполнить лФн ._С+"\н");
        *выаыв=("Т"=>"Пока ")("А"=>33)=>лФн;
        отображение(_С(("Т"=>"Пока ")("А"=>33)=>лФн)+"\н");
        отображение(_С(("Б"=>22)=>лФн)+"\н");
        отображение(Выполнить лФн ._С+"\н");
        *лФн2={_0 Сч, _Текст Б,Т:=_С"Т=\"" + Т + "\" Сч="+ _С Сч + " Б="+Б};
        отображение(Выполнить лФн2 ._С+"\н");
    }

Функция ТестФн(_Строка *Стр):
    приостановка(1000);
    =Стр.КопияСоКЗ;
.
 
Функция ТестФн(ТАААА *Стр):
    приостановка(500);
    =Стр.КопияСоКЗ;
.

?Шаблон Ас_ - Тип1 (
Функция Ас_(Тип1 *Д):
    *лРез={
        Тип ТАс____(_0 Выполнена, {(Тип1 *Д):=Ас__(КопияСоКЗ Д)} Р, Тип1 Д):
            +(СоДляАс_);
        .
        Функция _Т(ТАс____ А):
            =0;
        .
        Функция Запустить(ТАс____ А):
            *лРез=0;
            -->{
                (ТАс____ А):
                    ?Если Тип1.0 не пользовательский (
                        А.Р=Ас__(А.Д.КопияСоКЗ);
                    )
                    ?Если Тип1.0 это пользовательский (
                        ЗаполнитьИзСоКЗ(А.Р, Ас__(А.Д.КопияСоКЗ));
                    )
                    А.Выполнена=1;
                    =0;
            }(А):
                лРез=1;
            .
            Если лРез==0:
                А.Выполнена=1;
            .
            =лРез;
        .
        Функция Результат(ТАс____ А):
            Пока А.Выполнена==0:
                приостановка 1;
            .
            =А.Р.КопияСоКЗ;
        .
        ():
            ТАс____ лРез; =лРез;
    }();
    ?Если Тип1.0 не пользовательский (
        лРез.Д=Д;
    )
    ?Если Тип1.0 это пользовательский (
        лРез.Д><Д;
    )
    Запустить лРез;
    =лРез;
.
)

Программа НовыеГоризонты(): // начало исполнения
    *лАс1=Ас_ТестФн(_С"Привет мир 121321123123!!!\н"); // запуск функции в отдельном потоке
    *лАс2=Ас_ТестФн(НовыйТАААА(_С"Привет мир 121321123123!!!\н"));
    отображение(лАс1.Результат+лАс2.Результат.Стр); // лАс1.Результат - ожидание возвращения результата
 
    Конец 0; // возврат кода завершения
.

отображение(
            (Ас_ТестФн(_С"1\н").КАК "А")
            (Ас_ТестФн(НовыйТАААА(_С"Привет мир 121321123123!!!\н")).КАК "Б")      
            =>{_Строка А, ТАААА Б:=А+Б.Стр}
        );

*лА=НовыйТА(1, "Привет");
лА.(_Счетчик):
    лА._1=лА._1+1;
.
лА.(_Счетчик А, _Текст Б):
    лА.А=лА.А+1;
    отобразить(лА.Б);
.
лА.(_Счетчик !Сч, _Текст !Т):
    лА.Сч=лА.Сч+1;
    отобразить(лА.Т);
.
лА.(,_Текст):
    отобразить(лА._2);
.

?Оператор является("=")
Список ТСп(_Строка):
    Оператор "является" _является;
.
!ТСп пустым;
!ТСп заполненным;
Функция ТСп_является(ТСп сп1, сп2)(заполненным):
    Если __размер заполненным == 0:
        заполненным+=_С"";
    .
    Если __размер сп1 && __размер сп2:
        =1;
    .
    Если __размер сп1 == 0 && __размер сп2 == 0:
        =1;
    .
    =0;
.
Функция не(ТСп сп1):
    ТСп лРез;
    Если __размер сп1 == 0:
        лРез+=_С"";
    .
    =лРез;
.
Функция ТестЯвляется()(пустым,заполненным):
    ТСп лСписок;
    Если лСписок является пустым:
        отображение "лСписок пуст\н";
    .
    лСписок+=_С"";
    Если лСписок является не пустым:
        отображение "лСписок не пуст\н";
    .
    Если лСписок является заполненным:
        отображение "лСписок заполнен\н";
    .
    =0;
.

Тип ТА(_Строка А,Б):
.
Функция НовыйТА(_Строка А,Б):
    ТА лРез; лРез.А=А; лРез.Б=Б; =лРез;
.
Функция НовоеПрисвоение(): 
    :{
        *лА(А,Б)=НовыйТА(_С"А", _С"Б");
        *(А,Б)=НовыйТА(_С"А", _С"Б");
        *лЮ(А,Б)=НовыйТА(_С"А", _С"Б");
        отображение(лАА+лАБ+А+Б+"\н");
    }
    =0;
.

ТФФ FFF; FFF.F=5;
 
    отображение("Начало\н");
    *lF1=?CL(
        _Строка:
            *лА={{{FFF}}};
            @А++ лА.F:
                @Б++ лА.F:
                    @В++ лА.F:
                        ;{{=_С(А)+" "+_С(Б)+" "+_С(В)+"."}}
                    .
                .
            .
            {{=_С""}}
    );
    
    
    *лС2=?CL(
        _Строка:
            *лС={{{lF1}}};
            Цикл:
                *лСтр=Результат лС;
                Если лСтр==_С"":
                    Прервать цикл;
                .
                {{=лСтр+" ..."}}
            .
            {{=_С""}}
    );
 
    *лС3=?CL(
        _Строка:
            *лС={{{лС2}}};
            Цикл:
                *лСтр=Результат лС;
                Если лСтр==_С"":
                    Прервать цикл;
                .
                {{=лСтр+" !!!"}}
            .
            {{=_С""}}
    );
 
    Цикл:
        *лСтр=Результат лС3;
        Если лСтр==_С"":
            Прервать цикл;
        .
        отображение лСтр;
        отображение "\н";
    .