let doSomeStuff a b = let plusOne = a + 1 let result = plusOne * b result let doSomeStuff2 a b = (fun plusOne -> (fun result -> result)(plusOne * b))(a + 1) let ``let`` value body = body value let doSomeStuff3 a b = ``let`` (a+1) <| fun plusOne -> ``let`` (plusOne * b) <| fun result -> result printfn "1: %d" (doSomeStuff 20 2) printfn "2: %d" (doSomeStuff2 20 2) printfn "3: %d" (doSomeStuff3 20 2)