let style_evaluation =
  match (hair_color) {
  | Red    -> Good
  | Yellow -> Good
  | Brown  -> Good
  | _      -> Good
  }