module CurrentLoc:A reference to the current location. If you are careful to set this to the current location then you can use some built-in logging functions that will print the location.State_builder.Ref
with type data = location
include State_builder.S
type
data
val set : data -> unit
val get : unit -> data
val clear : unit -> unit