beginProgram

defineInstruction miraalNorte
{
while noalNorte
   vueltaIzquierda;
}

defineInstruction Gira
{
miraalNorte;
while sobreBiper
  { 
  vueltaIzquierda;
  recogeBiper;
  } 
}

beginMain

Gira;

while Frentelibre
  {
  paso;   
  Gira;
  }

termina;

endMain

endProgram