Program language: Scheme. R5RS

Define a function called (newmap f) that takes a function f as argument and returns a function. The returned function should take a list as argument and map the function f over each element of the list. You should not use the built-in map function in your solution. E.g.

 (define double-mapper (newmap (lambda(x)(* x 2)))) (double-mapper '(1 2 3 4)) --> (2 4 6 8) (double-mapper '(10 20 30)) --> (20 40 60)