1 (define (compose f g)
2   (lambda (x)
3     (f (g x))))
4 
5 (define (test-case actual expected)
6   (load-option 'format)
7   (newline)
8   (format #t "Actual: ~A Expected: ~A" actual expected))
9 
10 (define (square x) (* x x))
11 (define (inc x) (1+ x))
12 (test-case ((compose square inc) 6) 49)