unzip' :: [(a, b)] -> ([a], [b])
unzip' ((a,b):xs) = (a:(fst rest) , b:(snd rest))
  where rest = unzip' xs

unzip' [(1,2)] -> [1:(fst unzip' []), 2:(snd unzip' [])]