let compare s t =
  match (s,t) with
    | (Minus,Minus) -> 0
    | (Minus,Plus) -> -1
    | (Plus,Minus) -> 1
    | (Plus,Plus) -> 0