scalarMul :: Integer -> Stream Integer -> Stream Integer
scalarMul n (Cons x xs) = Cons (n * x) $ scalarMul n xs
scalarMul :: Integer -> Stream Integer -> Stream Integer
scalarMul n (Cons x xs) = Cons (n * x) $ scalarMul n xs
scalarMul n (Cons x xs) = Cons (n * x) $ scalarMul n xs