Create three scheme functions that take two lists and return a single list. Name the first one "vecadd" and add the two input lists together to create the output list. Make sure that at least the following work.

(display (vecadd '() '())) (newline) (display (vecadd '(1) '(2))) (newline) (display (vecadd '(1 2 3) '(4 5 6))) (newline) (display (vecadd '(1 . 3) '(4 . 6))) (newline)

Create a second function "vecfn" that allows one to pass the function to perform on the input lists as the first argument. In addition to working for the above by passing in the "+" function, it should also work for the following.

(display (vecfn - '(1 2 3) '(4 5 6))) (newline) (display (vecfn + '(4) (list (sqrt -1)))) (newline) (display (vecfn / '(1 2 3) '(1 4 5))) (newline)

Finally, add a "vecfun" to the syntax of Scheme. Submit a single text file