to blockhead
head
eyes
eyeballs
mouth
nose
hair
eyebrows
shoulders
ears
ht
end

to head
pu
setpos [-100 -100]
seth 0
pd
repeat 2[
fd 220
rt 90
fd 200
rt 90]
pu
end

to hair
setpos [-100 120]
seth 0
pd
repeat 20[
fd 30
bk 30
rt 90
fd 10
lt 90]
fd 30
pu
end

to eyebrows
pu
setpos [-80 80]
seth 90
pd
seth 90
fd 60
pu
fd 40
pd
fd 60
pu
home
end

to eyes
pu
setpos [-80 70]
seth 90
pd
fd 60
rt 90
fd 30
rt 90
fd 40
rt 90
fd 30
pu
rt 90
fd 120
pd
rt 90
fd 30
rt 90
fd 40
rt 90
fd 30
rt 90
fd 60
pu
home
eyeballs
end

to eyeballs
pu
setpos [-50 50]
setsh "eyeball
stamp
setpos [30 50]
stamp
home
ht
end

to nose
pu
setpos [-10 40]
seth 180
pd
fd 30
rt 90
fd 10
lt 90
fd 20
lt 90
fd 40
lt 90
fd 20
lt 90
fd 10
rt 90
fd 30
pu
home
end

to mouth
pu
setpos [-60 -80]
seth 0
pd
repeat 6[
repeat 4[
fd 20 rt 90]
rt 90
fd 20
lt 90]
lt 90
fd 120
rt 90
fd 20
repeat 6[
repeat 4[
fd 20 rt 90]
rt 90
fd 20
lt 90]
pu
home
end

to shoulders
pu
setpos [-180 -160]
seth 0
pd
fd 40
rt 90
fd 140
lt 90
fd 20
rt 90
fd 80
rt 90
fd 20
lt 90
fd 140
rt 90
fd 40
pu
home
end

to ear
pd
fd 20
lt 90
fd 80
lt 90
fd 20
pu
end

to ears
pu
setpos [100 10]
seth 90
pd
ear
setpos [-100 90]
ear
pu
home
end

to body
head
shoulders
end

to eyes2
setpos [40 60]
seth 0
pd
repeat 180[fd .05 rt 1]
repeat 180[fd .1 rt 1]
repeat 180[fd .15 rt 1]
repeat 180[fd .2 rt 1]
repeat 180[fd .25 rt 1]
repeat 180[fd .3 rt 1]
repeat 180[fd .35 rt 1]
repeat 180[fd .4 rt 1]
repeat 90[fd .5 rt 1] fd 30
pu
setpos [-40 60]
seth 0
pd
repeat 180[fd .05 lt 1]
repeat 180[fd .1 lt 1]
repeat 180[fd .15 lt 1]
repeat 180[fd .2 lt 1]
repeat 180[fd .25 lt 1]
repeat 180[fd .3 lt 1]
repeat 180[fd .35 lt 1]
repeat 180[fd .4 lt 1]
repeat 90[fd .5 lt 1] fd 30
pu
home
end