#!/opt/ucblogo/bin/logo

to square
  repeat 4 [forward 50 right 90]
end

to square_eyes
 left 90
 penup
 forward 100
 right 90
 pendown

 square
 
 right 90
 penup
 forward 100
 left 90
 pendown

 square
end

;square_eyes

to flower
 repeat 36 [right 10 square]
end

to garden
repeat 1 [penup setpos [100 100] flower]
;repeat 1 [setpos [random 100] [random 100] flower]
end

;garden

wait 100
bye