Computational expression with state being passed through steps

stepfulBuilder.fs

type StepfulBuilder() =
    member _.Zero() = ()
    member _.Yield x = x
    
    [<CustomOperation("toInt")>]
    member inline _.ToInt(_, value) =
        int value
        
    [<CustomOperation("transform")>]
    member _.Transform(x, f) =
        f x
        
    [<CustomOperation("print")>]
    member _.Print(x) =
        printfn "%A" x
        x
    
let steps = StepfulBuilder()
    
let flow =
    steps {
        toInt "1"
        transform (fun x -> x + 5)
        print
    }