quotation :: Lexer (Pos Token)
-- NOTE: I'm reserving all the quine corners, in case I decide to bracket instead of prefix quotation
quotation = (<?> "quotation") $ withPos $ choice [ const Quasiquote <$> char '⌜'
                             , const Unquote <$> char '⌞'
                             , const Splice <$> char '⌟'
                             ]

name
quotation :: Lexer (Pos Token)
quotation = (<?> "quotation") $ withPos $ choice [ const Quasiquote <$> char '⌜'
                             , const Unquote <$> char '⌞'
                             , const Splice <$> char '⌟'
                             ]
quotation = (<?> "quotation") $ withPos $ choice [ const Quasiquote <$> char '⌜'
                             , const Unquote <$> char '⌞'
                             , const Splice <$> char '⌟'
                             ]