seriesMult :: (Num a) => [a] -> [a] -> [a]
seriesMult = map (sum . map (uncurry (*))) ... convolve
seriesMult :: (Num a) => [a] -> [a] -> [a]
seriesMult = map (sum . map (uncurry (*))) ... convolve
seriesMult = map (sum . map (uncurry (*))) ... convolve