streamToList :: Stream a -> [a]
streamToList (Cons x xs) = x : streamToList xs
streamToList :: Stream a -> [a]
streamToList (Cons x xs) = x : streamToList xs
streamToList (Cons x xs) = x : streamToList xs