type t = A of int | B of string
let some_value = [A 42; B "Hello, world"]
let () =
print_endline "Starting utop now!";
UTop_main.interact ()
~unit:__MODULE__
~loc:__POS__
~values:[V ("some_value", some_value)]
;;