runConditionalBody :: Expander -> Bool -> TeXParser [Token]
runConditionalBody expand True = do
  body <- expandUntil expand (elseToken <|> fiToken)
  ((fiToken >> return body) <|>
   (elseToken >> ignoreUntil fiToken >> fiToken >> return body))
runConditionalBody :: Expander -> Bool -> TeXParser [Token]
runConditionalBody expand True = do
  body <- expandUntil expand (elseToken <|> fiToken)
  ((fiToken >> return body) <|>
   (elseToken >> ignoreUntil fiToken >> fiToken >> return body))
runConditionalBody expand True = do
  body <- expandUntil expand (elseToken <|> fiToken)
  ((fiToken >> return body) <|>
   (elseToken >> ignoreUntil fiToken >> fiToken >> return body))