closer :: Lexer (Pos Token)
closer = withPos $ choice [ const CloseParen <$> char ')'
                          , const CloseBrack <$> char ']'
                          , const CloseBrace <$> char '}'
                          ] <* popDisable
closer :: Lexer (Pos Token)
closer = withPos $ choice [ const CloseParen <$> char ')'
                          , const CloseBrack <$> char ']'
                          , const CloseBrace <$> char '}'
                          ] <* popDisable
closer = withPos $ choice [ const CloseParen <$> char ')'
                          , const CloseBrack <$> char ']'
                          , const CloseBrace <$> char '}'
                          ] <* popDisable