#lang racket
(require gigls/unsafe)

(define world (image-show (image-new 200 200)))
(define yertle (turtle-new world))
(turtle-teleport! yertle 100 100)
(turtle-down! yertle)
(repeat 6 (lambda (t) (turtle-forward! t 50) (turtle-turn! t 135))
          yertle)
(turtle-turn! yertle -90)
(turtle-forward! yertle 50)