relation :: Expander -> TeXParser Relation
relation expand =
  (expand (exactToken (CharToken '<' Other)) >> return LessThan) <|>
  (expand (exactToken (CharToken '=' Other)) >> return EqualTo) <|>
  (expand (exactToken (CharToken '>' Other)) >> return GreaterThan) <?>
  "relation"
relation :: Expander -> TeXParser Relation
relation expand =
  (expand (exactToken (CharToken '<' Other)) >> return LessThan) <|>
  (expand (exactToken (CharToken '=' Other)) >> return EqualTo) <|>
  (expand (exactToken (CharToken '>' Other)) >> return GreaterThan) <?>
  "relation"
relation expand =
  (expand (exactToken (CharToken '<' Other)) >> return LessThan) <|>
  (expand (exactToken (CharToken '=' Other)) >> return EqualTo) <|>
  (expand (exactToken (CharToken '>' Other)) >> return GreaterThan) <?>
  "relation"