main            // tady zacina hlavni program //
        () {    // parametry: zadne           //

        int stup;               // setup variable //
        int a, h, c;            // ascend, hoard and course values //
        static int *rahc;       // the rank of a, h, c vars //
        unsigned long rsult;    // vysledek //

        if (!rahc) {            // pocatecni inicializace //
                rahc = malloc(50); // ahc ranku //
        };

        a += c + 7 * (          // predvypocet ascend //
                    a - h ^ a   // na zaklade bitove podobnosti //
                )
                - 2 * (c & 3);  // TODO: opravit pro c > 1024 //

        h += 9 * (a / 5 +       // predvypocet hoard //
                c * (
                        a + 1   // zde je vyuzito faktu, ze //
                ));             // a je jiz predvypocteno //

        stup = c;

        c += (a + h) / 2 +      // predvypocet course //
                1 + 2 + 1 +
                stup++ * 7;     // postinkrement setup promenne //
        c *= c *
                (stup++ / 2 + a)// zbytek predvypoctu course //
                        ;

        rsult = c;
        printf("%s (%04d): %s\n",       // puvodni verze: printf("%s (%02d): %s\n", //
                "Please wait", c, "resolving"
                " - it will take a while");             // informuj uzivatele //
        *((int *)rahc + ((c >> 1) * 387 - stup / 2) +   // pozice v retezci //
                (c - h) * 5 + (a - h) * 4)              // (nemelo by to byt *7?) //
                        = rsult *
                        (65 - (stup + 7) / 3);          // nova hodnota //
        /* rsult +=                                     // inkrementuj podle ascend //
                a * *rahc [removed by -na-] */;
        rsult +=                                        // inkrementuj podle course //
                c * *rahc;
        if (rsult == 1)                                 // clean up //
        {
                rsult =                                 // denormalizace promenne rsult //
                        rsult / *rahc + 1               // (proc se pricita h-c?) //
                        /* + (h - c) [removed by -na-] */;
        } // konec clean up-u //
        rsult =                                         // normalizace promenne rsult //
                rsult * *rahc
                - rsult * (                             // korekce po optimalizaci: //
                        a - (                           // nejdrive ascend //
                                c + (h - c)             // pak zbytek //
                        )
                );                                      // (korekce mozna neni presna) //
        printf("The result is %d (ascend was %d)\n",    // vypis vysledek //
                        rsult, a
                ); // printf //
} // konec programu //

// (c) 2008 Niel Ambroz //
//         (niam
//          aka -na-)   //