\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-module E = Entity
+type mark = int
-let location = ref 0
+let mark = ref 1
(* interface functions ******************************************************)
-let locations () = !location
-
-let new_location () =
- incr location; !location
+let marks () = !mark
let new_mark () =
- E.Mark (new_location ())
+ incr mark; !mark
+
+let to_string i = string_of_int i