iniciar-programa
define-nueva-instruccion media-Vuelta como repetir 2 veces gira-izquierda;
define-nueva-instruccion gira-Derecha como repetir 3 veces gira-izquierda;
define-nueva-instruccion regresa(n) como inicio
  mientras no orientado-al-oeste hacer gira-izquierda;
  mientras frente-libre hacer avanza;
  media-vuelta;
fin;
define-nueva-instruccion dobla(n) como inicio
gira-izquierda;
avanza;
gira-izquierda;
fin;

define-nueva-instruccion once(n) como inicio
repetir 56  veces deja-zumbador; avanza;repetir 69   veces deja-zumbador; avanza;repetir 82   veces deja-zumbador; avanza;repetir 95   veces deja-zumbador; avanza;repetir 108   veces deja-zumbador; avanza;repetir 121   veces deja-zumbador; avanza;
repetir   2 veces deja-zumbador; avanza;repetir  15  veces deja-zumbador; avanza;repetir  28  veces deja-zumbador; avanza;repetir  41  veces deja-zumbador; avanza;repetir  54  veces deja-zumbador; dobla(0); regresa(0);
repetir  55  veces deja-zumbador; avanza;repetir  57  veces deja-zumbador; avanza;repetir  70  veces deja-zumbador; avanza;repetir  83  veces deja-zumbador; avanza;repetir  96  veces deja-zumbador; avanza;
repetir  109  veces deja-zumbador; avanza;repetir   111 veces deja-zumbador; avanza;repetir   3 veces deja-zumbador; avanza;repetir  16  veces deja-zumbador; avanza;repetir  29  veces deja-zumbador; avanza;
repetir  42  veces deja-zumbador; dobla(0); regresa(0);repetir   43 veces deja-zumbador; avanza;repetir  45  veces deja-zumbador; avanza;repetir  58  veces deja-zumbador; avanza;repetir  71  veces deja-zumbador; avanza;repetir  84  veces deja-zumbador; avanza;
repetir   97 veces deja-zumbador; avanza;repetir  110  veces deja-zumbador; avanza;repetir  112  veces deja-zumbador; avanza;repetir  4  veces deja-zumbador; avanza;
repetir 17   veces deja-zumbador; avanza;repetir  30  veces deja-zumbador; dobla(0); regresa(0);repetir  31  veces deja-zumbador; avanza;repetir  44  veces deja-zumbador; avanza;repetir  46  veces deja-zumbador; avanza;
repetir  59  veces deja-zumbador; avanza;repetir  72  veces deja-zumbador; avanza;repetir  85  veces deja-zumbador; avanza;repetir  98  veces deja-zumbador; avanza;repetir   100 veces deja-zumbador; avanza;
repetir   113 veces deja-zumbador; avanza;repetir   5 veces deja-zumbador; avanza;repetir  18  veces deja-zumbador; dobla(0); regresa(0);repetir 19   veces deja-zumbador; avanza;repetir  32  veces deja-zumbador; avanza;
repetir  34  veces deja-zumbador; avanza;repetir   47 veces deja-zumbador; avanza;repetir  60  veces deja-zumbador; avanza;repetir  73  veces deja-zumbador; avanza;repetir  86  veces deja-zumbador; avanza;repetir  99  veces deja-zumbador; avanza;repetir  101  veces deja-zumbador; avanza;repetir  114  veces deja-zumbador; avanza;
repetir  6 veces deja-zumbador; dobla(0); regresa(0);repetir  7  veces deja-zumbador; avanza;repetir 20   veces deja-zumbador; avanza;repetir 33    veces deja-zumbador; avanza;repetir 35   veces deja-zumbador; avanza;repetir 48   veces deja-zumbador; avanza;
repetir  61  veces deja-zumbador; avanza;repetir 74   veces deja-zumbador; avanza;repetir 87   veces deja-zumbador; avanza;repetir 89   veces deja-zumbador; avanza;repetir  102  veces deja-zumbador; avanza;
repetir  115  veces deja-zumbador; dobla(0); regresa(0);repetir 116   veces deja-zumbador; avanza;repetir  8  veces deja-zumbador; avanza;repetir  21  veces deja-zumbador; avanza;
repetir  23 veces deja-zumbador; avanza;repetir  36  veces deja-zumbador; avanza;repetir  49  veces deja-zumbador; avanza;repetir  62  veces deja-zumbador; avanza;repetir  75  veces deja-zumbador; avanza;repetir  88  veces deja-zumbador; avanza;repetir  90  veces deja-zumbador; avanza; repetir  103 veces deja-zumbador; dobla(0); regresa(0);
repetir  104  veces deja-zumbador; avanza;repetir  117  veces deja-zumbador; avanza;repetir  9  veces deja-zumbador; avanza;repetir  22  veces deja-zumbador; avanza;repetir  24  veces deja-zumbador; avanza;repetir  37  veces deja-zumbador; avanza;repetir  50  veces deja-zumbador; avanza;repetir  63  veces deja-zumbador; avanza;repetir  76  veces deja-zumbador; avanza;repetir 78   veces deja-zumbador; avanza;repetir  91  veces deja-zumbador; dobla(0); regresa(0);
repetir 92   veces deja-zumbador; avanza;repetir 105   veces deja-zumbador; avanza;repetir  118  veces deja-zumbador; avanza;repetir  10  veces deja-zumbador; avanza;
repetir  12  veces deja-zumbador; avanza;repetir   25 veces deja-zumbador; avanza;repetir  38  veces deja-zumbador; avanza;repetir  51  veces deja-zumbador; avanza;repetir  64  veces deja-zumbador; avanza;
repetir  77  veces deja-zumbador; avanza;repetir  79  veces deja-zumbador; dobla(0); regresa(0);
repetir  80  veces deja-zumbador; avanza;repetir  93  veces deja-zumbador; avanza;repetir  106  veces deja-zumbador; avanza;repetir   119 veces deja-zumbador; avanza;
repetir  11  veces deja-zumbador; avanza;repetir  13  veces deja-zumbador; avanza;repetir  26  veces deja-zumbador; avanza;repetir  39  veces deja-zumbador; avanza;
repetir  52  veces deja-zumbador; avanza;repetir  65  veces deja-zumbador; avanza;repetir  67  veces deja-zumbador; dobla(0); regresa(0);
repetir  68  veces deja-zumbador; avanza;repetir  81  veces deja-zumbador; avanza;repetir  94  veces deja-zumbador; avanza;repetir  107  veces deja-zumbador; avanza;repetir  120 veces deja-zumbador; avanza;
repetir  1  veces deja-zumbador; avanza;repetir  14  veces deja-zumbador; avanza;repetir  27 veces deja-zumbador; avanza;repetir  40  veces deja-zumbador; avanza;repetir  53  veces deja-zumbador; avanza;
repetir   66 veces deja-zumbador; apagate;
fin;



define-nueva-instruccion nueve(n) como inicio
repetir 37 veces deja-zumbador; avanza;repetir 48 veces deja-zumbador; avanza;repetir 59 veces deja-zumbador; avanza;repetir 70 veces deja-zumbador; avanza;repetir 81 veces deja-zumbador; avanza;repetir 2 veces deja-zumbador; avanza;
repetir 13 veces deja-zumbador; avanza;repetir 24 veces deja-zumbador; avanza;repetir 35 veces deja-zumbador; dobla(0); regresa(0);
repetir 36 veces deja-zumbador; avanza;repetir 38 veces deja-zumbador; avanza;repetir 49  veces deja-zumbador; avanza;repetir 60 veces deja-zumbador; avanza;
repetir 71 veces deja-zumbador; avanza;repetir 73 veces deja-zumbador; avanza;repetir  3 veces deja-zumbador; avanza;repetir 14 veces deja-zumbador; avanza;
repetir 25 veces deja-zumbador; dobla(0); regresa(0);
repetir 26 veces deja-zumbador; avanza;repetir 28 veces deja-zumbador; avanza;repetir 39 veces deja-zumbador; avanza;repetir 50 veces deja-zumbador; avanza;repetir 61 veces deja-zumbador; avanza;repetir 72 veces deja-zumbador; avanza;repetir 74 veces deja-zumbador; avanza;
repetir 4 veces deja-zumbador; avanza;repetir 15 veces deja-zumbador; dobla(0); regresa(0);
repetir 16 veces deja-zumbador; avanza;repetir 27 veces deja-zumbador; avanza;repetir 29 veces deja-zumbador; avanza;repetir 40 veces deja-zumbador; avanza;repetir 51 veces deja-zumbador; avanza;
repetir 62 veces deja-zumbador; avanza;repetir 64 veces deja-zumbador; avanza;repetir 75 veces deja-zumbador; avanza;repetir 5 veces deja-zumbador; dobla(0); regresa(0);
repetir 6 veces deja-zumbador; avanza;repetir 17 veces deja-zumbador; avanza;repetir 19 veces deja-zumbador; avanza;repetir 30 veces deja-zumbador; avanza;repetir 41 veces deja-zumbador; avanza;repetir 52 veces deja-zumbador; avanza;
repetir 63 veces deja-zumbador; avanza;repetir 65 veces deja-zumbador; avanza;repetir 76 veces deja-zumbador; dobla(0); regresa(0);
repetir 77 veces deja-zumbador; avanza;repetir 7 veces deja-zumbador; avanza;repetir 18 veces deja-zumbador; avanza;repetir 20 veces deja-zumbador; avanza;repetir 31 veces deja-zumbador; avanza;
repetir 42 veces deja-zumbador; avanza;repetir 53 veces deja-zumbador; avanza;repetir 55 veces deja-zumbador; avanza;repetir  66 veces deja-zumbador; dobla(0); regresa(0);
repetir 67 veces deja-zumbador; avanza;repetir 78 veces deja-zumbador; avanza;
repetir 8 veces deja-zumbador; avanza; repetir 10 veces deja-zumbador; avanza;repetir 21 veces deja-zumbador; avanza;repetir 32 veces deja-zumbador; avanza;
repetir  43 veces deja-zumbador; avanza;repetir 54 veces deja-zumbador; avanza;repetir 56 veces deja-zumbador; dobla(0); regresa(0);
repetir 57 veces deja-zumbador; avanza;
repetir 68 veces deja-zumbador; avanza;repetir 79 veces deja-zumbador; avanza;repetir 9 veces deja-zumbador; avanza;repetir 11 veces deja-zumbador; avanza;
repetir 22 veces deja-zumbador; avanza;repetir 33 veces deja-zumbador; avanza;repetir 44 veces deja-zumbador; avanza;repetir 46 veces deja-zumbador; dobla(0); regresa(0);
repetir 47 veces deja-zumbador; avanza;repetir 58 veces deja-zumbador; avanza;repetir 69 veces deja-zumbador; avanza;repetir 80 veces deja-zumbador; avanza;repetir 1 veces deja-zumbador; avanza;
repetir 12 veces deja-zumbador; avanza;repetir 23 veces deja-zumbador; avanza;
repetir 34 veces deja-zumbador; avanza;repetir 45 veces deja-zumbador; apagate;
fin;

define-nueva-instruccion siete(n) como inicio
repetir 22 veces deja-zumbador; avanza;repetir 31 veces deja-zumbador; avanza;repetir 40 veces deja-zumbador; avanza;repetir 49 veces deja-zumbador; avanza;
repetir 2 veces deja-zumbador; avanza;repetir 11 veces deja-zumbador; avanza;repetir 20 veces deja-zumbador; dobla(0); regresa(0);
repetir 21 veces deja-zumbador; avanza;repetir 23 veces deja-zumbador; avanza;repetir 32 veces deja-zumbador; avanza;repetir 41 veces deja-zumbador; avanza;repetir 43 veces deja-zumbador; avanza;
repetir 3 veces deja-zumbador; avanza; repetir 12 veces deja-zumbador; dobla(0); regresa(0);
repetir 13 veces deja-zumbador; avanza;repetir 15 veces deja-zumbador; avanza;repetir 24 veces deja-zumbador; avanza;repetir 33 veces deja-zumbador; avanza;repetir 42 veces deja-zumbador; avanza;repetir 44 veces deja-zumbador; avanza;
repetir 4 veces deja-zumbador; dobla(0); regresa(0);repetir 5 veces deja-zumbador; avanza;repetir 14 veces deja-zumbador; avanza;repetir 16 veces deja-zumbador; avanza;repetir 25 veces deja-zumbador; avanza;repetir 34 veces deja-zumbador; avanza;
repetir 36 veces deja-zumbador; avanza;repetir 45 veces deja-zumbador; dobla(0); regresa(0);repetir 46 veces deja-zumbador; avanza;repetir 6 veces deja-zumbador; avanza;repetir 8 veces deja-zumbador; avanza;repetir 17 veces deja-zumbador; avanza;repetir 26 veces deja-zumbador; avanza;
repetir 35 veces deja-zumbador; avanza;repetir 37 veces deja-zumbador; dobla(0); regresa(0);repetir 38 veces deja-zumbador; avanza;repetir 47 veces deja-zumbador; avanza;repetir 7 veces deja-zumbador; avanza;repetir 9 veces deja-zumbador; avanza;repetir 18 veces deja-zumbador; avanza;repetir 27 veces deja-zumbador; avanza;repetir 29 veces deja-zumbador; dobla(0); regresa(0);repetir 30 veces deja-zumbador; avanza;
repetir 39 veces deja-zumbador; avanza;repetir 48 veces deja-zumbador; avanza;repetir 1 veces deja-zumbador; avanza;repetir 10 veces deja-zumbador; avanza;repetir 19 veces deja-zumbador; avanza;repetir 28 veces deja-zumbador; apagate;
fin;

define-nueva-instruccion cinco(n) como inicio
repetir 11 veces deja-zumbador; avanza;repetir 18 veces deja-zumbador; avanza;repetir 25 veces deja-zumbador; avanza;repetir 2 veces deja-zumbador;  avanza;
repetir 9 veces deja-zumbador;  dobla(0); regresa(0); repetir 10 veces deja-zumbador; avanza;repetir 12 veces deja-zumbador; avanza;repetir 19 veces deja-zumbador; avanza;repetir 21 veces deja-zumbador; avanza;
repetir 3 veces deja-zumbador; dobla(0); regresa(0);repetir 4 veces deja-zumbador; avanza;repetir 6 veces deja-zumbador; avanza;repetir 13 veces deja-zumbador; avanza;repetir 20 veces deja-zumbador; avanza;
repetir 22 veces deja-zumbador; dobla(0); regresa(0);repetir 23 veces deja-zumbador; avanza;repetir 5 veces deja-zumbador; avanza;repetir 7 veces deja-zumbador; avanza;repetir 14 veces deja-zumbador; avanza;repetir 16 veces deja-zumbador; dobla(0); regresa(0);
repetir 17 veces deja-zumbador; avanza;repetir 24 veces deja-zumbador; avanza;repetir 1 veces deja-zumbador; avanza;repetir 8 veces deja-zumbador; avanza; repetir 15 veces deja-zumbador; apagate;
fin;

define-nueva-instruccion tres(n) como inicio
repetir 4 veces deja-zumbador;  avanza; repetir 9 veces deja-zumbador;  avanza; repetir 2 veces deja-zumbador;  dobla(0); regresa(0); repetir 3 veces deja-zumbador;  avanza;
repetir 5 veces deja-zumbador;  avanza;repetir 7 veces deja-zumbador;  dobla(0); regresa(0);repetir 8 veces deja-zumbador;  avanza;repetir 1 veces deja-zumbador;  avanza;
repetir 6 veces deja-zumbador;  apagate;
fin;






define-nueva-instruccion mide(n) como  inicio
  si frente-libre entonces inicio
   avanza; avanza;
    si frente-bloqueado entonces inicio
     regresa(0);
     tres(0);
    fin
    sino inicio
    avanza; avanza;
       si frente-bloqueado entonces inicio
        regresa(0);
        cinco(0);
       fin
       sino inicio
        avanza; avanza;
        si frente-bloqueado entonces inicio
         regresa(0);
         siete(0);
        fin
        sino inicio
         avanza; avanza;
          si frente-bloqueado entonces inicio
           regresa(0);
           nueve(0);
          fin sino inicio
         avanza; avanza;
         si frente-bloqueado entonces inicio
         regresa(0);
         once(0);
        fin;
        fin;
    fin;
    fin;
  fin;
fin;
fin;




  inicia-ejecucion
  mientras no orientado-al-este hacer gira-izquierda;
  si derecha-bloqueada y izquierda-bloqueada y frente-bloqueado entonces
  inicio
  deja-zumbador; apagate;
  fin;
  mide(0);

   apagate;
 termina-ejecucion
finalizar-programa
