Self-answer, though I'm not sure that's the prettiest way (not even sure it
is even valid) :

<:ctyp< ($Ast.tySta_of_list tuple_types$) >>

ph.


2009/7/28 Philippe Veber <philippe.veber@googlemail.com>

> Hi list,
>
> Does someone know how to write a camlp4 quotation for types of the form 'a
> * 'b * 'c * 'd ...  For now I could only obtain types of the form 'a * ('b *
> ('c * ('d * ... )...))), using a code similar to
>
>
>  List.fold_right
>    (fun x accu -> <:ctyp< $x$ * $accu$ >>)
>    (List.tl tuple_types)
>    (List.hd tuple_types)
>
>
> TIA,
> ph.
>
>