sig   type 'a t   val return : 'a -> 'a t   val bind : 'a t -> ('a -> 'b t) -> 'b t   val get : 'a -> 'a * 'a   val put : 'a -> 'b -> unit * 'a end