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