Source code for the winning entry

The first place in the November contest:

The source:

procedure main
penup
color gray
lt 90
go 180
rt 180
pendown
goto filledsquare,width=140,length=370
lt 90
go 70
lt 90
repeat 4,stripe
penup
rt 180
go 400
lt 90
go 17
pendown
repeat 450,car
end

procedure stripe
penup
rt 90
go 5
lt 90
pendown
color white
goto filledsquare,width=10,length=70
penup
go 30
lt 90
go 5
rt 90
end

procedure car
pendown
color red
go 40
rt 90
go 30
lt 90
go 6
rt 90
go 5
color gray
rt 90
go 6
penup
lt 90
go 65
rt 90
pendown
color gray
go 40
penup
rt 90
go 65
lt 90
color gray
pendown
go 6
penup
rt 90
go 5
rt 90
color red
pendown
go 6
penup
lt 90
go 31
rt 90
end

procedure filledsquare
lt 90
repeat length/2,line,width=width
rt 90
end

procedure line
go width
rt 90
go 1
rt 90
go width
lt 90
go 1
lt 90
end