Update: monadisation of Lutin, part 1.

Rationale: make rdbg time traveling work.

lutin/src/lutProg.mli

@@ -8,6 +8,7 @@ val make : ?libs:string list option -> string list -> string -> (t * Prog.t)
 val get_init_state : ?verb_level:int -> t -> Prog.t -> Prog.state
 
 (**  [make_state infile mnode] *)
-val make_state : ?libs:string list option -> ?verb_level:int -> string list -> string -> Prog.state
+val make_state : ?libs:string list option -> ?verb_level:int -> string list -> string
+  -> Prog.state
 
 (* val fomula_of : Var.env -> Var.env -> CoAlgExp.t -> Exp.formula  *)

lutin/src/main.ml

@@ -126,8 +126,9 @@ let rec to_simu oc infile mnode opt = (
   let state0 = LutProg.get_init_state zelutprog zeprog in
   let init_state_dyn = { state0.Prog.d with  Prog.verbose = Verbose.level () } in
   let init_state = { state0 with Prog.d = init_state_dyn } in
-  let loc = if (MainArg.show_locals opt) then Some init_state.Prog.s.Prog.loc_vars else None in
-
+  let loc = if (MainArg.show_locals opt) then
+      Some init_state.Prog.s.Prog.loc_vars else None
+  in
   let seed = MainArg.seed opt in
   let msg =
     Printf.sprintf