quotations_makeSequantial.fsx

#r "nuget: FSharp.Quotations.Evaluator"

open FSharp.Quotations
open FSharp.Quotations.Evaluator

let makeSequential (xs: #seq<Expr<unit>>): Expr<unit -> unit> =
  let body =
    (<@ () @>)
    |> Seq.foldBack(fun x s -> <@ %x; %s @>) xs

  <@ fun () -> %body @>

let ef =
  [ 1..3 ]
  |> List.map(fun x -> <@ stdout.WriteLine x @>)
  |> makeSequential

let f = ef.Evaluate()

printfn "%A" ef

f ()

(*
Lambda (unitVar0,
        Sequential (Call (Some (Call (None, ConsoleOut, [])), WriteLine, 
                          [ValueWithName (1, x)]),
                    Sequential (Call (Some (Call (None, ConsoleOut, [])),
                                      WriteLine, [ValueWithName (2, x)]),      
                                Sequential (Call (Some (Call (None, ConsoleOut,
                                                              [])), WriteLine, 
                                                  [ValueWithName (3, x)]),     
                                            Value (<null>)))))
1
2
3
*)