got working unzip function via foldr