;; TeachPack: rectangle.ss
;; LanguageLevel: beginner 

(start 100 100)

(show (list
       (list RED RED)))

(show (list 
       (list BLUE BLUE BLUE BLUE)
       (list GREEN RED RED GREEN)
       (list BLUE BLUE BLUE BLUE)))