parseItem :: (Num a, Read a, Floating a) => [a] -> String -> [a]
parseItem (x:y:xs) "*" = x*y :xs
parseItem :: (Num a, Read a, Floating a) => [a] -> String -> [a]
parseItem (x:y:xs) "*" = x*y :xs
parseItem (x:y:xs) "*" = x*y :xs