type ('a, 'b, 'c, 'd) t
val typename_of_t : 'a typename ‑> 'b typename ‑> 'c typename ‑> 'd typename ‑> ('a, 'b, 'c, 'd) t typename