type t (* = ... -> Students, this is your job ! *)
[@@deriving eq, ord, show]

val fresh : unit -> t