module Variant: sig .. end
sig
end
type 'constructor t = {
'constructor
name : string;
string
rank : int;
int
constructor : 'constructor;