Fibonacci.fs

open System

[<EntryPoint>]
let main argv =

    let rec DoFib val1 val2 i =
        if i > 0 then
            let calc = val1 + val2
            if i = 1 then
                Console.Write(calc.ToString())
            else 
                Console.Write(calc.ToString() + ",")
            i-1 |> DoFib val2 calc
        ()

    let Start () = 
        Console.Write("Iterations: ")
        let iter = Console.ReadLine()
        (int)iter |> DoFib 0 1

    Start()
    Console.ReadLine() |> ignore
    0