to "poly :d :a
forward :d
right :a
poly :d :a
end

to "linkertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU RT 90 FD 1 LT 90 PD MAKE "T :T + 1]
PU LT 90 FD 10 RT 90 PD
end

to "rechertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
PU RT 90 FD 10 LT 90 PD
end

to "haar.l
LT 60
REPEAT 6 [FD 10 LT 10] PU REPEAT 6 [RT 10 BK 10] PD
RT 60
end

to "rechterwang
REPEAT 2 [REPEAT 18 [FD 2 RT 5] FD 10 REPEAT 18 [FD 2 RT 5]]
end

to "haas
SETUP
LINKERWANG
RIMPEL.LINKS
PU LT 90 FD 40 RT 90 PD SNOR.LINKS
PU RT 90 FD 40 LT 90 PD RECHTERWANG
RIMPEL.RECHTS PU RT 90 FD 40 LT 90 PD
SNOR.RECHTS PU LT 90 FD 31 RT 90 PU BK 33 PD
TANDEN PU FD 39 PD NEUS PU BK 4 PD PU FD 12 PD
HOOFD PU BK 12 PD PU FD 25 LT 90 FD 30 RT 90 PD OOG
PU RT 90 FD 41 LT 90 PD OOG PU LT 90 FD 11 RT 90 PD
PU FD 80 PD OREN PU BK 80 PD
end

to "rimple.links
RT 180 PU REPEAT 18 [RT 5 FD 2]
PD REPEAT 12 [RT 5 FD 2] PU REPEAT 30 [BK 2 LT 5] RT 180 PD
end

to "linkeroor
LT 30 FD 40 RT 60 REPEAT 4 [FD 15 RT 2]
REPEAT 10 [LT 2 BK 15] LT 30 REPEAT 13 [FD 10 RT 3]
RT 57 FD 54 RT 64 FD 70 PU RT 32 FD 25 RT 90 FD 48 RT 90 PD
end

to "snor.rechts
REPEAT 3 [HAAR.R PU BK 3 RT 90 FD 3 LT 80 PD]
PU REPEAT 3 [LT 100 FD 3 RT 90 FD 3] PD
end

to "rechteroor
RT 30 FD 40 LT 60 REPEAT 4 [FD 15 LT 2]
REPEAT 10 [RT 2 BK 15] RT 30
REPEAT 13 [FD 10 LT 3] LT 57 FD 54 LT 64 FD 70
PU LT 32 FD 25 LT 90 FD 48 LT 90 PD
end

to "haar.r
RT 60 REPEAT 6 [FD 10 RT 10] PU
REPEAT 6 [LT 10 BK 10 ] PD LT 60
end

to "rimpel.rechts
RT 180 PU REPEAT 18 [LT 5 FD 2]
PD REPEAT 12 [LT 5 FD 2]
PU REPEAT 30 [BK 2 RT 5] RT 180 PD
end

to "oren
PU LT 90 FD 50 RT 90 PD
LINKEROOR PU RT 90 FD 100 LT 90 PD
RECHTEROOR PU LT 90 FD 50 RT 90 PD
end

to "oog
REPEAT 2 [FD 30 RT 90 FD 19 RT 90] FD 35
REPEAT 30 [RT 6 FD 1] FD 5 PU FD 15 RT 90 FD 9.5 PD
REPEAT 120 [FD 9 BK 9 RT 3] PC 0
REPEAT 100 [FD 3 BK 3 RT 3] PC 3 RT 60 PU FD 9.5 RT 90 BK 15 PD
end

to "hoofd
LT 90 PU REPEAT 5 [RT 180 / 25 FD 7] PD
REPEAT 20 [RT 180 / 25 FD 7] PU RT 180
REPEAT 25 [FD 7 LT 180 / 25]
REPEAT 5 [LT 180 / 25 FD 7] PD
REPEAT 20 [LT 180 / 25 FD 7] PU
REPEAT 25 [BK 7 RT 180 / 25] LT 90
end

to "rimpel.links
RT 180 PU REPEAT 18 [RT 5 FD 2]
PD REPEAT 12 [RT 5 FD 2]
PU REPEAT 30 [BK 2 LT 5]
RT 180 PD
end

to "snor.links
REPEAT 3 [HAAR.L PU BK 3 LT 90 FD 3 RT 80 PD]
PU REPEAT 3 [RT 100 FD 3 LT 90 FD 3] PD
end

to "linkerwang
REPEAT 2 [REPEAT 18 [FD 2 LT 5] FD 10 REPEAT 18 [FD 2 LT 5]]
end

to "neus
LT 30 REPEAT 30 [FD 20 BK 20 RT 2]
LT 30
end

to "tanden
PU RT 90 FD 2 LT 90 PD RECHTERTAND
PU LT 90 FD 21 RT 90 PD LINKERTAND
PU RT 90 FD 12 LT 90 PD
end

to "setup
PU BK 80 PD HT
end

to "rechtertand
MAKE "T 15
REPEAT 10 [FD :T BK :T PU LT 90 FD 1 RT 90 PD MAKE "T :T + 1]
PU RT 90 FD 10 LT 90 PD
end