viem ddopredu :n
 lokal "swi
 urob "swi 0
 pre "dedko ~
  [opakuj :n ~
  [ak :swi = 0 ~
    [ak smer = 270 ~
      [ak xcor > - 60 ~
        [myfd][urob "swi 1]][do 0] ~
     ak smer = 90 ~
      [ak xsur < 280 ~
        [myfd][urob "swi 1]][do 0] ~
     ak smer = 180 ~
      [ak ysur > - 70 ~
        [myfd][urob "swi 1]][do 0] ~
     if heading = 0 ~
      [if ycor < 190 ~
        [myfd][make "swi 1]][fd 0] ~
     if :swi = 1 [pr sprava 5 "][fd 0]][fd 0]] ~
  setshape :dedko]
end