int mocnina(int a, int b)
{
   int k = 1;		// Právě zkoumaná mocnina dvojky
   int l = 1;		// Mezivýsledek
   while (k<b) k = k*2;	// Hledáme nejvyšší potřebnou mocninu
   while (k)		// A násobíme\dots
      {
         l = l*l;	// Trik -- zkuste to pochopit\dots
         if (k & b)
            l = l*a;
         k = k/2;	// Nižší mocninu
      }
   return l;
}