term :: Parser Int term = do f <- factor do symbol "*" e <- expr return (f * t) <--------------- replace t with e +++ return f I hope that helps, Carter Schonwald -------------- next part -------------- An HTML attachment was scrubbed... URL: http://www.haskell.org//pipermail/haskell-cafe/attachments/20050315/e2b5ce37/attachment.htm