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