With this snippet, you can easily eval tcl script. Note: I'm very new to OCaml. Any suggestions are welcome.

tcl_eval.ml

#load "labltk.cma";;

(* You must call Tk.openTk somewhere before tcl_eval *)
let top = Tk.openTk ()

let rec tcl_eval_str str =
  tcl_eval_list (Protocol.splitlist str)
and tcl_eval_list lst =
  Protocol.tkEval (list2tkArgs lst)
and list2tkArgs lst =
  Array.of_list (List.map (fun i -> Protocol.TkToken i) lst)
;;

(* Example: *)
print_endline (tcl_eval_str "glob *");
print_endline (tcl_eval_list ["lsort"; "-decreasing"; "foo bar baz"])