let inline (+.) f g x = g(f x)

let a = (*) 2
let b = (+) 1
let c = (/) 3
let d = (-) 4
let f = a +. b +. c +. d
f 1 |> printfn "%i"