zip7 package:ihaskell

The unzip7 function takes a list of seven-tuples and returns seven lists, analogous to unzip.