Paolo G. Giarrusso (Blaisorblade) would like to add an unzip function to Data.Sequence. I agree. I propose adding

  unzip :: Seq (a,b) -> (Seq a, Seq b)

  unzipWith :: (x -> (a, b)) -> Seq x -> (Seq a, Seq b)

Does anyone object?