iniciar-programa

    define-nueva-instruccion media-vuelta como
    inicio
        gira-izquierda;
        gira-izquierda;
    fin

    define-nueva-instruccion gira-derecha como
    inicio
        gira-izquierda;
        gira-izquierda;
        gira-izquierda;
    fin

    define-nueva-instruccion regresa como
    inicio
        media-vuelta;
        avanza;
    fin

    define-nueva-instruccion busca-esquina como
    inicio
         mientras (no-orientado-al-sur) hacer
            gira-izquierda;
        mientras (frente-libre) hacer
            avanza;
        gira-derecha;
        mientras (frente-libre) hacer
            avanza;
    fin

    define-nueva-instruccion busca-inicio como
    inicio
        busca-esquina;
        gira-derecha;
        avanza;
        gira-derecha;
        avanza;
    fin

    define-nueva-instruccion copia-monton(dist) como
    inicio
        si (junto-a-zumbador) entonces
        inicio
            coge-zumbador;
            copia-monton(dist);
            deja-zumbador;
            regresa;
            repetir precede(dist) veces
                avanza;
            deja-zumbador;
            regresa;
            repetir precede(dist) veces
                avanza;
        fin
        sino
        inicio
            avanza;
            repetir precede(dist) veces
                avanza;
        fin;
    fin

    define-nueva-instruccion fibonacci como
    inicio
        mientras (frente-libre) hacer
        inicio
            copia-monton(1);
            regresa;
            avanza;
            media-vuelta;
            copia-monton(2);      
        fin
    fin

    inicia-ejecucion
        busca-inicio;
        fibonacci;
        apagate;
    termina-ejecucion
finalizar-programa