beginProgram
   defineInstruction volteaAlNorte
      {
         while noalNorte
            vueltaIzquierda;
      }
   defineInstruction volteaAlEste
      {
         while noalEste
            vueltaIzquierda;
      }
   defineInstruction volteaAlSur
      {
         while noalSur
            vueltaIzquierda;
      }
   defineInstruction checaNivel
      {
         paso;
         vueltaIzquierda;
         paso;
      }
   defineInstruction subeNivel
      {
         volteaAlEste;
         paso;
         ponBiper;
         vueltaIzquierda;
      }

   defineInstruction formaColumna
      {
         ponBiper;
         checaNivel;
         while sobreBiper
            {
               subeNivel;
               checaNivel;
            }
         subeNivel;         
      }
   defineInstruction regresa
      {
         volteaAlSur;
         while Frentelibre
            paso;
      }

   beginMain
      if noBipersdisponibles
         termina;
      ponBiper;
      volteaAlEste;
      paso;      
      while Bipersdisponibles
         {
            volteaAlNorte;
            formaColumna;
            regresa;
            volteaAlEste;
            paso;
         }
      termina;
   endMain
endProgram