module As_univ:sig
..end
See http://mlton.org/UniversalType
type
t
val create : unit -> ('a -> t) * (t -> 'a option)
create ()
returns a function to inject and a function to project a
value from a given type in to/from a universal value.