# Вычисление факториала хвостовой рекурсией
## Cсылка на видеоразбор
https://youtu.be/d7vrUHXSpFo
## Код из книги
    #let rec tfact x n =
        if n = 0 then x
        else tfact (x * n) (n - 1);
    tfact : int -> int -> int = <fun>
    #let fact n = tfact 1 n;;
    fact : int -> int = <fun>