if gmem[0]=1 then gmem[0]=0 ; ošetříme singulární případ log 1 if gmem[0]=0 then halt lmem[0]:=gmem[0]-1 ; uložíme logaritmované číslo zmenšené o 1 lmem[1]:=cpuid-1 lmem[1]:=lmem[0]>>lmem[1] lmem[0]:=lmem[0]>>cpuid if lmem[1]=0 then halt ; zkontrolujeme nerovnosti if lmem[0]<>0 then halt gmem[0]:=cpuid ; případně zapíšeme výsledek halt