Function serialization example

gistfile1.fs

open System
open System.IO
open System.Runtime.Serialization.Formatters.Soap
open System.Text

let mhead(m : list<Object>) : list<Object> = [m.Head]

let addN n =
  (fun x -> x + n)
  
let add2 = addN 2

let emitString x =
  let sf = new SoapFormatter()
  let sink = new MemoryStream()
  sf.Serialize(sink, x)
  printfn "%s" <| x.GetType().FullName
  printfn "%s" <| Encoding.Default.GetString(sink.ToArray())
  
[ mhead :> obj; addN :> obj; add2 :> obj; emitString :> obj]
|> Seq.iter emitString

printfn "-------------------"

[ mhead :> obj; addN :> obj; add2 :> obj; emitString :> obj]
|> Seq.iter emitString;
;;