0. #lang racket
1. (require 2htdp/image)
2. (define unit 10)
3. (define single-wheel (circle (* unit 0.7) "solid" "black"))
4. (define upper-car (overlay/align "middle" "bottom"
5. (rectangle (* unit 3) (* unit 2) "solid" "red")
6. (rectangle (* unit 5.5) unit "solid" "red")))
7. (define wheels (overlay/xy single-wheel (* unit 4)
8. (* unit 0) single-wheel))
9. (underlay/xy upper-car (/ unit unit) (* unit 1.5) wheels)

=>