Initial sinkFoldM (why not as fast as sinkFold?)