1. [2 points] Write a function to compute the volume of a sphere, given its radius. 2. [2 points] Write a recursive function to raise a number to a power. 3. [2 points] The implementation of the function maxlist below generally manages to find the largest element in a list of integers, but fails if all are negative. Fix it by adding one line. mymax a b | a > b = a | b > a = b | otherwise = a maxlist [] = 0 maxlist (head:tail) = mymax head (maxlist tail) 4. [2 points] Use the built-in function zipWith to write a function wsum that adds up two lists, while double-weighting the elements of the first list: > wsum [2,4] [3,5] [7, 13] > wsum [1, 1, 1, 1] [1, 1, 1, 1] [3, 3, 3, 3] 5. [2 points] Write an expression to compute the sum of all the natural numbers less than one thousand that are multiples of 3 or 5.