type t = | Number | String | Bool | None | Extern | Float let string_of_t : t -> string = function | Number -> "Number" | String -> "String" | Bool -> "Bool" | None -> "None" | Extern -> "Extern" | Float -> "Float"