>=20
> module Uncomparable :
>   sig
>     type 'a t
>     val make : 'a -> 'a t
>     val get : 'a t -> 'a
>   end
>   =3D
>   struct
>     type 'a t =3D unit -> 'a
>=20
>     let make x =3D fun _ -> x
>=20
>     let get x =3D x ()
>   end
>=20


--=20
Christophe Raffalli
Universite de Savoie
Batiment Le Chablais, bureau 21
73376 Le Bourget-du-Lac Cedex

tel: (33) 4 79 75 81 03
fax: (33) 4 79 75 87 42
mail: Christophe.Raffalli@univ-savoie.fr
www: http://www.lama.univ-savoie.fr/~RAFFALLI
---------------------------------------------
IMPORTANT: this mail is signed using PGP/MIME
At least Enigmail/Mozilla, mutt or evolution
can check this signature. The public key is
stored on www.keyserver.net
---------------------------------------------