type magick_boolean = | MagickFalse | MagickTrue let magick_boolean_of_string str = match String.lowercase str with | "false" | "magick-false" | "magickfalse" -> MagickFalse | "true" | "magick-true" | "magicktrue" -> MagickTrue | _ -> raise Not_found (* ясно @ понятно *)