beginProgram
   defineInstruction volteaAlNorte
      {
         while noalNorte
            vueltaIzquierda;
      }
   defineInstruction volteaAlEste
      {
         while noalEste
            vueltaIzquierda;
      }
   defineInstruction volteaAlSur
      {
         while noalSur
            vueltaIzquierda;
      }

   defineInstruction checaPared
      {
         volteaAlNorte;
         paso;
         volteaAlEste;
      }

   defineInstruction buscaEntrada
      {         
         while Frentelibre
            {
               if nosobreBiper
                  paso;
               else
                  termina;
            }
         if nosobreBiper
            {
               volteaAlSur;
               while Frentelibre
                  paso;
               volteaAlEste;
               while Frenteobstruido
                  checaPared;
               
            }
         else
            termina;
      }

   beginMain
   while nosobreBiper
      {
         volteaAlEste;
         buscaEntrada;         
         paso;         
      }   
   termina;
   endMain
endProgram