0. #lang racket
1. (define (xs->image total some-xs foreground background)
2.   (Local [(define (represent x) (if (element? x some-xs) ground) (else barrier))])
3.   (define (T image n) (if (= n total) image) (else (T (beside image (represent (+ n 1))) (+ n 1))))
4.   (T (represent 0) 0))

=>

eval:2:0: define: not allowed in an expression context

in: (define (represent x) (if (element? x some-xs) ground)

(else barrier))