sig
  val sig_of_td__loop :
    Camlp4.PreCast.Ast.ctyp ->
    Camlp4.PreCast.Ast.ctyp list -> Camlp4.PreCast.Ast.ctyp
  val sig_of_td :
    Camlp4.PreCast.Ast.loc ->
    string ->
    Camlp4.PreCast.Ast.ctyp list -> '-> '-> Camlp4.PreCast.Ast.sig_item
  val sig_of_tds :
    '-> Camlp4.PreCast.Ast.ctyp -> Camlp4.PreCast.Ast.sig_item
end