open System

[<EntryPoint>]
let main argv =
    printfn "%A" [1..10]
    printfn "%A" [2..2..100]
    printfn "%A" ["Monday"; "Tuesday"; "Wednesday"; "Thursday"; "Friday"; "Saturday"; "Sunday"] //13
    let even = [for i in 1..100 -> (i * i * i)]
    printfn "%A" even
    let primes = [for i in 2..1000 do
                          let rec is_prime f =
                              match f = i with
                              | true -> true
                              | _ -> if (i % f) = 0 then false
                                        else is_prime (f + 1)
                          if is_prime 2 then yield i]

    let triangle = [for i in 1..200 do
                        for j in 1..200 do
                            for k in 1..200 do
                                let is_true a b c = a * a + b * b = c * c
                                if (is_true i j k) || (is_true i k j) || (is_true k j i) then
                                    yield (i, j, k)]
    printfn "%A" primes
    printfn "%A" triangle
    let superlist = even @ primes
    printfn "%A" superlist

    let time = System.DateTime.Now
    let random = new System.Random(time.Second)
    printfn "%A" (random.Next()::random.Next()::superlist)s

    0 // return an integer exit code