1 2 3 4 5 6 7 8
(* $Id$ *) type state val intern_state : string -> unit val extern_state : string -> unit