#Fact.bas

```
 Program: fact.bas
```
```
REM Factorial recursive test

function fact(x as ulong) as ulong
    if x < 2 then
        return 1
    end if

    return x * fact(x - 1)

end function

cls
for x = 1 To 10:
    print "Fact ("; x; ") = "; fact(x)
next x
```
