method from_string s = ((Marshal.from_string s 0) :> 'a)