type character_class =
    Barbarian
  | Bard
  | Cleric
  | Druid
  | Fighter
  | Monk
  | Paladin
  | Ranger
  | Rogue
  | Sorcerer
  | Wizard

type rectitude = Evil | R_Neutral | Good

type firmness = Chaotic | F_Neutral | Lawful

let rectitude_to_french = function
    | Evil -> "Mauvais"
    | R_Neutral -> "Neutre"
    | Good -> "Bon"

let X : string = rectitude_to_french( Evil );

(* Local Variables: *)
(* tab-width: 4 *)
(* compile-command: "ocaml test1.ml" *)
(* End: *)