(Left e, _) = Left $ toString e
lexProgram :: Parser Char [Token]
-lexProgram = some lexToken >>= \ts->pure (map (\t->(0, 0, t)) ts)
+lexProgram = some lexToken <* many (satisfy isSpace) <* eof
+ >>= \ts->pure (map (\t->(0, 0, t)) ts)
lexToken :: Parser Char TokenValue
lexToken =