iniciar-programa

    define-nueva-instruccion cuenta(c) como inicio
      si frente-libre entonces inicio
        si derecha-libre entonces inicio
          si orientado-al-norte entonces inicio
            avanza;
            cuenta(sucede(c));
          fin sino inicio
            avanza;
            cuenta(precede(c));
          fin;
        fin sino inicio
          gira-izquierda;
          mientras frente-libre y derecha-libre hacer inicio
            avanza;
          fin;
          si frente-libre entonces inicio
            gira-izquierda;
          fin;
        fin;
        cuenta(c);
      fin sino inicio
        repetir c veces inicio
          deja-zumbador;
        fin;
        apagate;                
      fin;
    fin;

    inicia-ejecucion
      si orientado-al-norte entonces inicio
        cuenta(0);
      fin sino inicio
        mientras frente-libre y derecha-libre hacer inicio
          avanza;
        fin;
        si frente-libre entonces inicio
          gira-izquierda;
        fin;
        cuenta(0);
      fin;
        apagate;
    termina-ejecucion
finalizar-programa
