ruler :: Stream Integer
ruler = interleaveStreams (streamRepeat 0)
    (streamMap numZeroRightBits (streamFromSeed (+2) 2))
ruler :: Stream Integer
ruler = interleaveStreams (streamRepeat 0)
    (streamMap numZeroRightBits (streamFromSeed (+2) 2))
ruler = interleaveStreams (streamRepeat 0)
    (streamMap numZeroRightBits (streamFromSeed (+2) 2))