sig
  type woods =
      P_WoodGrain1A
    | P_WoodGrain1B
    | P_WoodGrain2A
    | P_WoodGrain2B
    | P_WoodGrain3A
    | P_WoodGrain3B
    | P_WoodGrain4A
    | P_WoodGrain4B
    | P_WoodGrain5A
    | P_WoodGrain5B
    | P_WoodGrain6A
    | P_WoodGrain6B
    | P_WoodGrain7A
    | P_WoodGrain7B
    | P_WoodGrain8A
    | P_WoodGrain8B
    | P_WoodGrain9A
    | P_WoodGrain9B
    | P_WoodGrain10A
    | P_WoodGrain10B
    | P_WoodGrain11A
    | P_WoodGrain11B
    | P_WoodGrain12A
    | P_WoodGrain12B
    | P_WoodGrain13A
    | P_WoodGrain13B
    | P_WoodGrain14A
    | P_WoodGrain14B
    | P_WoodGrain15A
    | P_WoodGrain15B
    | P_WoodGrain16A
    | P_WoodGrain16B
    | P_WoodGrain17A
    | P_WoodGrain17B
    | P_WoodGrain18A
    | P_WoodGrain18B
    | P_WoodGrain19A
    | P_WoodGrain19B
    | T_Wood1
    | T_Wood2
    | T_Wood3
    | T_Wood4
    | T_Wood5
    | T_Wood6
    | T_Wood7
    | T_Wood8
    | T_Wood9
    | T_Wood10
    | T_Wood11
    | T_Wood12
    | T_Wood13
    | T_Wood14
    | T_Wood15
    | T_Wood16
    | T_Wood17
    | T_Wood18
    | T_Wood19
    | T_Wood20
    | T_Wood21
    | T_Wood22
    | T_Wood23
    | T_Wood24
    | T_Wood25
    | T_Wood26
    | T_Wood27
    | T_Wood28
    | T_Wood29
    | T_Wood30
    | T_Wood31
    | T_Wood32
    | T_Wood33
    | T_Wood34
    | T_Wood35
  val to_string : Povray.Textures.Wood.woods -> string
end