Array writeN fold eats one element when applied multiple times

```
Prelude Stream Array Streamly.Prelude> Stream.toList $ Stream.foldMany (Array.writeN 1) (Stream.fromList [1,2,3,4,5,6::Int])
[[1],[3],[5]]
Prelude Stream Array Streamly.Prelude>
```