A curried mapping function in Racket