procedure main
go 20
lt 90
go 250
rt 90
go 40
rt 90
go 250
lt 90
go 40
lt 60
go 280
rt 60
go 65
rt 90
go 280
rt 90
go 450
end

procedure logo
  repeat steps, slogo
end

procedure spiral
  repeat 100, spiralhelper
end

procedure slogo
  repeat 50, nothing
  go 1
end

procedure spiralhelper
  goto logo, steps = loop
  rt 50
end

procedure nothing
end

----------------------------------

procedure main
   goto logo, steps = 50
    rt 360/4
    goto logo, steps = 50
    rt 360/4
    goto logo, steps = 50
    rt 360/4
   goto logo, steps =50
   rt 360/4

  goto pentagon
end

procedure logo
  repeat steps, slogo
end

procedure spiral
  repeat 100, spiralhelper
end

procedure slogo
  repeat 50, nothing
  go 1
end

procedure spiralhelper
  goto logo, steps = loop
  rt 50
end

procedure nothing
end

procedure pentagon
    goto logo, steps = 50
    rt 360/5
    goto logo, steps = 50
    rt 360/5
    goto logo, steps = 50
    rt 360/5
    goto logo, steps = 50
    rt 360/5
    goto logo, steps = 50
    rt 360/5
end