Perhaps a function that recursively returns itself

[Xyncgas]

Today I wanted a function that can return itself so I can use piping to keep giving it stuffs to work on

let rec Job configuration (requiredObject : SomeType) =
//do something
(fun (e : SomeType) -> Job configuration e)

or something as

let rec Job param1 =
    //do something
    Job

Currently the best I can do is

     let rec Seal<'a> f (parameter:'a) :obj=
        f parameter
        Seal f
    let inline (|>) x (y:obj) =
        let j =  y :?> ('a->obj)
        x |> j
    let inline (<|) (x:obj) y  =
        let j = x :?> ('a->obj)
        j <| y

    let z =  Seal<string> (System.Console.WriteLine) "Hello" <| "World"

It would be nice if we get recursive function that returns itself, by the language, so we don't have to write these glue codes

[Xyncgas]

    type Sealed<'Parameter> = delegate of ('Parameter) -> Sealed<'Parameter>
    let rec Seal f p =
        f p
        (Seal f:Sealed<'a>)
    let inline (@|>) x (y:Sealed<'a>) =
        y.Invoke(x)
    let inline (<|@) (x:Sealed<'a>) y  =
        x.Invoke(y)

So now you can seal any function that has one parameter (or rewrite this for two parameter) by using :

let k = Sealed Console.WriteLine

Allowing instead of :

Console.WriteLine ("Hello")
Console.WriteLine ("World")
Console.WriteLine ("Linux")

Perhaps Infinitely unwrap

k "Hello" <| "World" <| "Linux"