RosettaCodeData/Task/String-case/OCaml/string-case.ocaml

let () =
  let str = "alphaBETA" in
  print_endline (String.uppercase str); (* ALPHABETA *)
  print_endline (String.lowercase str); (* alphabeta *)

  print_endline (String.capitalize str); (* AlphaBETA *)
;;