// Yorum Satırı
printfn "Hello World!"

/// Fibonacci Formülü

let rec fib n =

    match n with

    | 0 | 1 -> n

    | _ -> fib (n - 1) + fib (n - 2)

let fibSeq = Seq.unfold (fun (a,b) -> Some(a+b, (b, a+b))) (0,1)

[1 .. 10]

|> List.map     fib

|> List.filter  (fun n -> (n % 2) = 0)

|> printList

 [ for i in 1..10 do

    let r = fib i

    if r % 2 = 0 then yield r ]

|> printList

// Windows Form kütüphanesini açıyoruz:

open System.Windows.Forms

// Windows uygulama penceresi ve özelliklerini giriyoruz

let form = new Form(Visible=true, TopMost=true, Text="Welcome to F#")

// Programın içine yazdıklarımızı göstermek için etiket oluşturuyoruz

let label =

    let x = 3 + (4 * 5)

    new Label(Text = sprintf "x = %d" x)

// Programa etiketini veriyoruz 

form.Controls.Add(label)

// Son olarak yazdığımız programımızı çalıştırıyoruz

[<System.STAThread>]

Application.Run(form)