ans (n:m:r) =
  let n' = map read n :: [Int]
      z  = zip m n'
  in
    (ans' z):(ans r)
ans (n:m:r) =
  let n' = map read n :: [Int]
      z  = zip m n'
  in
    (ans' z):(ans r)
ans (n:m:r) =
  let n' = map read n :: [Int]
      z  = zip m n'
  in
    (ans' z):(ans r)