sig
  val am_recording : unit -> bool
  val set_recording : bool -> unit
  val most_recent : unit -> string
end