module Main where
  map2 f [] [] = []
  map2 f (x:xs) (y:ys) = (f x y):(map2 f xs ys)