Please implement the following function using HASKELL. Please note that this is not simply using the built in zipWith function

zipWith zipWith :: (a->b->c) -> [a] -> [b] -c Given a two-argument function and two lists of arguments to supply, create a list of the results of applying the function to each same indexed pair of arguments from the two lists. (Zip up the two lists with the function). The answer is as long as the shortest of the two input lists Homework3> zipWith (+) [1,2,31 [10,20,30 [11,22,33] 0,30,40,50,601 [11,22,33] Homework3> zipWith (+) [1,2,31 1 Homework3> zipWith (+) [1 [1,2,3] I1 zipWith zipWith :: (a->b->c) -> [a] -> [b] -c Given a two-argument function and two lists of arguments to supply, create a list of the results of applying the function to each same indexed pair of arguments from the two lists. (Zip up the two lists with the function). The answer is as long as the shortest of the two input lists Homework3> zipWith (+) [1,2,31 [10,20,30 [11,22,33] 0,30,40,50,601 [11,22,33] Homework3> zipWith (+) [1,2,31 1 Homework3> zipWith (+) [1 [1,2,3] I1