OCaml の toplevel で日本語文字列 (EUC/UTF-8) がエスケープされていてそれが嫌だという人は
そもそもプログラミング言語システムの挙動が locale とかに引きずられるのは、おかしいと思うんだ。実装側からするとただメンドイだけでバグも入り易いし。まあいいや。
一番簡単なのは、
# let printer ppf = Format.fprintf ppf "\"%s\"";; val printer : Format.formatter -> string -> unit = <fun> # #install_printer printer;; # "あああ";; - : string = "あああ"
壊れた日本語文字列を受け取った場合の処理も printer をもっと拡充すりゃできるから自分でやってね。
SJIS は前も書きましたが残念なので、残念です。残念ですね。