module Main

open System.Linq
open Functional

// For dynamic typing. To print anything in our case.
let inline print a = printfn "%A" a

[<EntryPoint>]
let main args = 
    appendFile "test.txt" "Pouet"
    printfn "Size of folder: %A" (SizeOfFolder ".")
    print "youpi"
    print (isEven (fac 4))
    //
    print steve.First
    printfn "Person equality: %A" ({ First = "Steve"; Last = "Holt"; Age = 42 } = steve)
    printfn "Young persons: "
    (youngPersonNames (Queryable.AsQueryable [steve ; stevesTwin ; { First = "Paul"; Last = "Atreides"; Age = 11 }])) |> Seq.iter (fun name -> printfn "   name: %s" name)
    //
    print <| Seq.take 10 allPositiveInts
    print <| Seq.take 10 (fibs 1 1)
    //
    print testYieldBang
    print testUnfold
    //
    print <| greet Bill
    print <| greet "Paul"
    //
    print <| testXor 1 2
    print <| testXor 3 3
    0