Procedure: main by

Description of the procedure:
go 30
right 90
go 30
left 30
go 100

Source:

procedure main
go 100
right 90
go 100
right 90
go 100
right 90
go 100
right 90
end