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