expr (lexer "1+2*4") :: [Int]