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