sig type t val compare : Scm_analyzer.Alpha.t -> Scm_analyzer.Alpha.t -> int val from_string : string -> Scm_analyzer.Alpha.t val print : Format.formatter -> Scm_analyzer.Alpha.t -> unit end