Saved
val to_string : magic:string -> 'a -> string
val of_string : magic:string -> string -> 'a option