quickSort [2,5,4,6,1,5,3] == [1,2,3,4,5,5,6]
quickSort [2,5,4] == [2,4,5]

binom (5,5) == 1
bionom (49,6) == 13983816

zipT (Node 4 (Node 3 Nil Nil) Nil) (Node "abc" (Node "xyz" Nil Nil) Nil) == (Node (4,"abc") (Node (3,"xyz") Nil Nil)) Nil)
zipT (Node 4 (Node 3 Nil Nil) Nil) (Node "abc" Nil Nil) == (Node (4,"abc") Nil Nil)

unzipT (Node (4,"abc") (Node (3,"xyz") Nil Nil) Nil) == ((Node 4 (Node 3 Nil Nil) Nil),(Node "abc" (Node "xyz" Nil Nil) Nil))
unzipT (Node (4,"abc") Nil Nil) == ((Node 4 Nil Nil),(Node "abc" Nil Nil))

zipTF (+) (Node 4 (Node 3 Nil Nil) Nil) (Node 2 (Node 7 Nil Nil) Nil) == (Node 6 (Node 10 Nil Nil)) Nil)
zipTF (++) (Node "abc" (Node "def" Nil Nil) Nil) (Node "xyz" Nil Nil) == (Node "abcxyz") Nil Nil) Nil)

unzipTF (\x->x) (Node (4,"abc") (Node (3,"xyz") Nil Nil) Nil) == ((Node 4 (Node 3 Nil Nil) Nil),(Node "abc" (Node "xyz" Nil Nil)
unzipTF (\(x,y)->(y,x)) (Node (4,"abc") (Node (3,"xyz") Nil Nil) Nil) == ((Node "abc" (Node "xyz" Nil Nil),(Node 4 (Node 3 Nil Nil) Nil))