(define koch '((to koch (n) (if (= n 1) (forward 8) ((koch (- n 1)) (left 60) (koch (- n 1)) (right 120) (koch (- n 1)) (left 60) (koch (- n 1)) ) ) ) (repeat 3 (koch 4) (right 120) ) ))