(define flower
  (lambda ()
    (let ((image (create-image 256 256)))
      (set-bgcolor WHITE)
      
      ; Draw one of the petals
      (set-fgcolor BLUE)
      (set-brush "Circle (05)")
      (select-ellipse image REPLACE 140 40 40 40)
      (fill-fgcolor image)
      
      ; Draw the main flower
      (set-fgcolor RED)
      (set-brush "Circle (05)")
      (select-ellipse image REPLACE 80 40 80 80)
      (fill-fgcolor image)
      
      ; Draw the stem
      (select-nothing image)
      (set-fgcolor GREEN)
      (set-brush "Circle (09)")
      (line image 120 120 120 240)
      
      ; Draw another leaf
      (set-fgcolor DARK_GREEN)
      (set-brush "Circle (05)")
      ; (select-ellipse image REPLACE 128 190 90 30) 
      (select-ellipse image REPLACE 120 120 90 90) 
      (select-ellipse image INTERSECT 75 75 90 90)
      (fill-fgcolor image)
      
      (select-nothing image)
      (show-image image)
      image)))