type dump = [`Simple | `Records | `Summary | `Granule | `NoDump]
type ui = [`Console | `Gtk]

val filenames : string list ref
val dump : dump ref
val ui : ui ref
val loop : bool ref
val flip : bool ref
val shuffle : bool ref
val each : bool ref
val level : int ref
val font_size : int ref

val debug : bool ref
val verbose : bool ref

val load_from_file : string -> unit
val load_from_argv : string -> unit
