// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.

let past x =
    match x with
    | "run" -> "ran"
    | "do" -> "done"
    | "swim" -> "swam"
    | x -> x + "ed";;


let razyDwa(x) = 2 * x



let rec (^^) m n =
    if (n>0) then m * (m^^(n-1))
    elif n=0 then 1
    else 0;;

let wynik = 0;
let rec suma(m, n) =
    if m=n then wynik
    else wynik + suma(wynik, (n-1))



let rec NWD = function
    | (0, n) -> n
    | (m, n) -> NWD(n % m, m)

let skroc (l,m) =
   let znak = if l*m<0 then -1 else 1
   let al = abs l
   let am = abs m
   let d  = NWD(al,am)
   in (znak * (al / d), am / d)


type ulam = int*int
let ( ++ ) (a, b) (c, d) = (a*d + b*c, b*d)
let ( -- ) (a, b) (c, d) = (a*d - b*c, b*d)
let ( ** ) (a, b) (c, d) = (a*c, b*d)
let ( /./ ) (a, b) (c, d) = (a,b) ** (d,c)
let ( == ) (a, b)  (c, d) = (a*d = b*c)





[<EntryPoint>]
let main argv =
    printfn "%A" argv
    let am = 1
    let bm = 2
    let cm = 3
    let dm = 4

    let ulam1 = (am,bm)
    let ulam2 =(cm, dm)
    let wyn = ulam1++ulam2

    printf "%f"
    //printf "%i" (suma(1,3))
   // printfn "%i" (razyDwa(5))

    ignore (System.Console.ReadKey(true))
    0 // return an integer exit code