to circlel :length
repeat 360 [fd :length lt 1]
end

to circler :length
repeat 360 [fd :length rt 1]
end

to rectangle :l1 :l2
repeat 2 [fd :l1 rt 90 fd :l2 rt 90]
end

to robot 
pu
fd 400
pd
rectangle 90 180
fd 30
lt 70
fd 20
rt 70
fd 10
rt 70
fd 20
rt 20
pu
fd 180
pd
rt 20
fd 20
rt 70
fd 10
rt 70
fd 20
rt 20
pu
fd 45
lt 90
fd 5
pd
rectangle 10 90
pu
rt 90
fd 30
rt 90
fd 15
pd
circlel 0.05
pu
bk 15
lt 90
fd 30
rt 90
fd 15
pd
circler 0.05
pu
lt 90
fd 5
rt 90
fd 20
pd
circlel 0.2
pu
bk 35
rt 90
fd 35
lt 90
fd 35
pd
circler 0.2
pu
bk 60
rt 90
fd 35
rt 90
pd
fd 20
bk 20
rt 90
fd 100
lt 90
fd 20
pu
rt 90
fd 80
rt 180
pd
rectangle 260 100
rt 90
fd 40
rt 90
square 30
pu
fd 20
rt 90
fd 15
pd
circlel 0.5
end

to square :length
repeat 4 [fd :length rt 90]
end