takeList (_:xs) ls =
   case ls of
     [] -> []
     (y:ys) -> y : takeList xs ys
takeList (_:xs) ls =
   case ls of
     [] -> []
     (y:ys) -> y : takeList xs ys
takeList (_:xs) ls =
   case ls of
     [] -> []
     (y:ys) -> y : takeList xs ys