FuncProgTask1

//Task 2
let f = (S (*) ((+)2)) >> ((+)1)
//Task 3
let rec fib =
    let rec fib' acc1 acc2 = function
        |1 -> acc1
        |n -> fib' acc2 (acc1 + acc2) (n-1)
    fib' 1 1
//Task4
let carry f = fun x y -> f(x, y)