sig type t val absurd : Void.t -> 'end