Private Function FactorialTailRecursive(ByVal X As Integer, ByVal Accumulator As Integer)As Integer
   
   If X = 0 Then
      Return Accumulator
   End If
   
   Dim Steps As Integer = X - 1
   Dim Prod As Integer = Accumulator * X
   
   Return FactorialTailRecursive(Steps, Prod)
   
End Function

Private Function Factorial(ByVal X As Integer)As Integer
   
   Dim Prod As Integer = FactorialTailRecursive(X, 1)
   
   Return Prod
   
End Function

Dim argument As Integer = 8
Dim fact As Integer = Factorial(argument)

' Выводим в формате "число! = значение":
printf(!"%d! = %d\r\n", argument, fact)

  mov   r8d, 40320
   mov   edx, 8
   lea   rcx, "! = "
   call   printf

Dim Vector(265) As Integer = Any
For i As Integer = LBound(Vector) To UBound(Vector)
   Vector(i) = i
Next

int64 VECTOR$1[266];
__builtin_memset( (int64*)VECTOR$1, 0, 2128ll );
struct $8FBARRAY1Iu7INTEGERE tmp$589$1;
*(int64**)&tmp$589$1 = (int64*)VECTOR$1;
*(int64**)((uint8*)&tmp$589$1 + 8ll) = (int64*)VECTOR$1;
*(int64*)((uint8*)&tmp$589$1 + 16ll) = 2128ll;
*(int64*)((uint8*)&tmp$589$1 + 24ll) = 8ll;
*(int64*)((uint8*)&tmp$589$1 + 32ll) = 1ll;
*(int64*)((uint8*)&tmp$589$1 + 40ll) = 49ll;
*(int64*)((uint8*)&tmp$589$1 + 48ll) = 266ll;
*(int64*)((uint8*)&tmp$589$1 + 56ll) = 0ll;
*(int64*)((uint8*)&tmp$589$1 + 64ll) = 265ll;
{
   int64 I$2;
   I$2 = 0ll;
   label$134:;
   {
      *(int64*)((int64)(int64*)VECTOR$1 + (I$2 << (3ll & 63ll))) = I$2;
   }
   label$132:;
   I$2 = I$2 + 1ll;
   label$131:;
   if( I$2 <= 265ll ) goto label$134;
   label$133:;
}

Type IntegerVector
   vec(265) As Integer
End Type

Dim Vector As IntegerVector = Any ' Выключить бессмысленное обнуление массива
For i As Integer = LBound(Vector.vec) To UBound(Vector.vec)
   Vector.vec(i) = i
Next

struct $13INTEGERVECTOR VECTOR$1;
{
   int64 I$2;
   I$2 = 0ll;
   label$138:;
   {
      *(int64*)((uint8*)&VECTOR$1 + (I$2 << (3ll & 63ll))) = I$2;
   }
   label$136:;
   I$2 = I$2 + 1ll;
   label$135:;
   if( I$2 <= 265ll ) goto label$138;
   label$137:;
}

Dim Hello As String = "Hello"
Dim World As String = "World"
Dim Concat As String = Hello & " " & World

FBSTRING TMP$593$1;
FBSTRING TMP$594$1;
FBSTRING HELLO$1;
fb_StrInit( (void*)&HELLO$1, -1ll, (void*)"Hello", 6ll, 0 );
FBSTRING WORLD$1;
fb_StrInit( (void*)&WORLD$1, -1ll, (void*)"World", 6ll, 0 );
FBSTRING CONCAT$1;
__builtin_memset( &TMP$593$1, 0, 24ll );
FBSTRING* vr$18 = fb_StrConcat( &TMP$593$1, (void*)&HELLO$1, -1ll, (void*)" ", 2ll );
__builtin_memset( &TMP$594$1, 0, 24ll );
FBSTRING* vr$21 = fb_StrConcat( &TMP$594$1, (void*)vr$18, -1ll, (void*)&WORLD$1, -1ll );
fb_StrInit( (void*)&CONCAT$1, -1ll, (void*)vr$21, -1ll, 0 );
fb_StrDelete( (FBSTRING*)&CONCAT$1 );
fb_StrDelete( (FBSTRING*)&WORLD$1 );
fb_StrDelete( (FBSTRING*)&HELLO$1 );

Type IntegerVector
    vec(265) As Integer
End Type

DIM STACK a AS STRING

  TYPE CVet FIELD = 1
     UNION
       RGBT AS ULONG            '  Все каналы сразу
       TYPE
         R AS UBYTE             '  Красный
         G AS UBYTE             '  Зелёный
         B AS UBYTE             '  Синий
         T AS UBYTE             '  Прозрачность
       END TYPE
     END UNION
  END TYPE

BackCv.RGBT = RGB(50, 50, 50)

TYPE CVet FIELD = 1 
    UNION 
        RGBT AS ULONG            '  Все каналы сразу 
        TYPE 
        R AS UBYTE             '  Красный 
        G AS UBYTE             '  Зелёный 
        B AS UBYTE             '  Синий 
        T AS UBYTE             '  Прозрачность 
        END TYPE 
    END UNION 
END TYPE 
 
namespace QQQ 
    dim BackCv as CVet 
End Namespace 
 
using QQQ 
BackCv.RGBT = RGBA(50, 50, 50 , 0) 
? BackCv.R , BackCv.G , BackCv.B , BackCv.T , BackCv.RGBT