// System.Runtime.Seriaization.dll and System.Xml.dll are needed.
open System.IO
open System.Runtime.Serialization 
open System.Xml
 
let write(x : float32[]) =
    let ds = new DataContractSerializer(typeof<float32[]>)
    let ms = new MemoryStream()    
    ds.WriteObject(ms, x)
    ms.ToArray()