let marshal o = Marshal.to_string o [] |> Format.sprintf "%S"

let unmarshal o =
  let s = Scanf.sscanf o "%S" (fun s -> s) in
  Marshal.from_string s 0