3 [sicp.ch2_2 :only (transform-painter)]))
5 (defn below1 [painter1 painter2]
6 (let [paint-low (transform-painter painter1
10 paint-high (transform-painter painter2
18 (defn below2 [painter1 painter2]
19 (rotate90 (beside (rotate270 painter1) (rotate270 painter2))))