Fixed a bug in the combine sources. The previous approach infinitely
produced the first element of s1. It turns out that the desired impl. is
very simple actually. Just the monadic >>