Fibonacci Sequence Generator

open System

let rec GenerateSequence num1 num2 counter =
    let num3 = num1 + num2
    printf "%d\n" num3
    if counter>=0 then
        GenerateSequence num2 num3 (counter - 1)

[<EntryPoint>]
let main argv =
    GenerateSequence (Convert.ToUInt64(0)) (Convert.ToUInt64(1)) 90
    while true do
        ()
    0