branch :: Parser Control
branch =
    do { l <- goto
       ; return $ Branch l
       }
 <?> "branch"
branch :: Parser Control
branch =
    do { l <- goto
       ; return $ Branch l
       }
 <?> "branch"
branch =
    do { l <- goto
       ; return $ Branch l
       }
 <?> "branch"