OCaml print with color

ocaml_color.ml

module Log = struct
  type color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White

  let log_with_color c text =
    match c with
    | Black -> Printf.printf "\027[38;5;%dm%s\027[0m" 0 text
    | Red -> Printf.printf "\027[38;5;%dm%s\027[0m" 1 text
    | Green -> Printf.printf "\027[38;5;%dm%s\027[0m" 2 text
    | Yellow -> Printf.printf "\027[38;5;%dm%s\027[0m" 3 text
    | Blue -> Printf.printf "\027[38;5;%dm%s\027[0m" 4 text
    | Magenta -> Printf.printf "\027[38;5;%dm%s\027[0m" 5 text
    | Cyan -> Printf.printf "\027[38;5;%dm%s\027[0m" 6 text
    | White -> Printf.printf "\027[38;5;%dm%s\027[0m" 7 text
end

let () =
  Log.log_with_color Log.Red "hello world\n";
  Log.log_with_color Log.Green "Hello World\n";
  Log.log_with_color Log.Yellow "Hello World\n";
  Log.log_with_color Log.Blue "Hello World\n";
  Log.log_with_color Log.Cyan "Hello World\n";
  Log.log_with_color Log.Magenta "Hello World\n"