runConditionalBody expand False = do
  ignoreUntil (elseToken <|> fiToken)
  ((fiToken >> return []) <|>
   (elseToken >> expandUntil expand fiToken <* fiToken))
runConditionalBody expand False = do
  ignoreUntil (elseToken <|> fiToken)
  ((fiToken >> return []) <|>
   (elseToken >> expandUntil expand fiToken <* fiToken))
runConditionalBody expand False = do
  ignoreUntil (elseToken <|> fiToken)
  ((fiToken >> return []) <|>
   (elseToken >> expandUntil expand fiToken <* fiToken))