changing:
    unpack    = map (\tup -> fst tup)
to:
    unpack    = fst . unzip