// kettes alapu logaritmus kiszamitasa

/def log2 =
  /echo 'bemeneti szam: ';
  /input x;
  y = 1;
  n = 0;
  /while (x > y)
    y = y*2;
    n = n+1;
  /ewh;
  n = n-1;
  y = 2^-n*x;
  /if (y = 1) /line 'co: %n';/return;/eif;
  /if (y < 1) /line 'y nem lehet egynel kisebb.';/return;/eif;
  mn = 0;
  rek = 0;
  ree = 1;
  /while (!(ree = rek))
    ree = rek;
    z = y;
    mn = mn+1;
    aput('m',mn,0);
    /while (z < 2)
      t = aget('m',mn)+1;
      aput('m',mn,t);
      z = z^2;
    /ewh;
    rek = 0;
    kit = 0;
    /for (i: 1 mn)
      kit = kit-aget('m',i);
      rek = rek+2^kit;
    /efo;
    y = z/2;
  /ewh;
  re = n+rek;
  /line 'co: %re';
/edf