from Data.Either import :: Either
-:: Token :== (Int, TokenValue)
+:: Token :== (Int, Int, TokenValue)
:: TokenValue
//Value tokens
= IdentToken [Char] // Identifier
:: LexerOutput :== Either String [Token]
-(===) :: TokenValue Token -> Bool
-
lexer :: [Char] -> LexerOutput