import Data.Either
-:: Token
+:: Token :== (Int, TokenValue)
+:: TokenValue
//Value tokens
= IdentToken [Char] // Identifier
| NumberToken [Char]// Integer
:: LexerOutput :== Either String [Token]
-instance toString LexerOutput
-
lexer :: [Char] -> LexerOutput