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