forth: flesh out lexer