let Obj2Obj (o : obj) (t : Type)  =
    let result = Activator.CreateInstance(t)
    o.GetType().GetProperties()
        |> Array.iter (
            fun prop ->
                let sourcePropInfo = result.GetType().GetProperty(prop.Name)
                let targetPropInfo = o.GetType().GetProperty(prop.Name)
                targetPropInfo.SetValue(result, sourcePropInfo.GetValue(o)))
    result