#lang racket
(define (fs f s) (map f s))
(define (f1 n) (* n 2))
(define (f2 n) (* n n))
(define fsf1 (curry fs f1))
(define fsf2 (curry fs f2))
(fsf1 '(0 1 2 3))
(fsf1 '(2 4 6 8))
(fsf2 '(0 1 2 3))
(fsf2 '(2 4 6 8))