2016-02-23 11:27:22 +00:00
|
|
|
type t = A of int | B of string
|
|
|
|
|
|
|
|
|
|
let some_value = [A 42; B "Hello, world"]
|
|
|
|
|
|
|
|
|
|
let () =
|
|
|
|
|
print_endline "Starting utop now!";
|
2017-05-26 14:26:27 +00:00
|
|
|
UTop_main.interact ()
|
2016-02-23 11:27:22 +00:00
|
|
|
~unit:__MODULE__
|
|
|
|
|
~loc:__POS__
|
|
|
|
|
~values:[V ("some_value", some_value)]
|
|
|
|
|
;;
|
