(* interface functions ******************************************************)
-let initial_status = {
+let initial_status () = {
opening = false; reopening = false; closing = false;
explicit = false; block = false;
iao = 0; iar = 0; iac = 0; iag = 0