beginProgram

  defineInstruction mediaVuelta
    {
    iterate 2 times
	{ vueltaIzquierda; }
    }
  
  defineInstruction buscaSiguiente
    {
    vueltaIzquierda; paso;
    if nosobreBiper
      {
      mediaVuelta;
      paso;
	vueltaIzquierda;
	paso;
	if nosobreBiper
	  {
	  mediaVuelta;
        paso;
	  vueltaIzquierda;
	  paso;
	  } 
      }
    } 

beginMain

  while sobreBiper
    { buscaSiguiente; }

  mediaVuelta;
  paso;
 
  while sobreBiper
    {
    recogeBiper; 
    buscaSiguiente; 
    }

endMain

endProgram