let l = runConduitPure $ yieldMany [1,2,3,4] .| slidingWindowC 2 .| sinkList :: [[Int]]
print l
[[1,2],[2,3],[3,4
]]