lmem[0]:=cpuid-1                  
   lmem[0]:=lmem[0]/gmem[0]          ; vypočteme "k"
   lmem[1]:=cpuid-1
   lmem[1]:=lmem[1]%gmem[0]
   lmem[1]:=1+lmem[1]                ; vypočteme "l"
   if lmem[0]>=lmem[1] then halt     ; pokračujeme pouze pokud k<l
   lmem[2]:=gmem[0]+lmem[1]          ; l+n, pozice druhé cifry
   lmem[3]:=gmem[0]+lmem[0]
   lmem[3]:=gmem[0]+lmem[3]          ; tady budeme ukládat přenos c[k]
   lmem[4]:=gmem[lmem[1]]+gmem[lmem[2]]
   if lmem[4]=1 then lmem[4]:=-1     ; pokud jsou cifry různé nepřiřazujeme nic
   if lmem[4]=2 then lmem[4]:=1      ; pokud jsou obě jedna, bude přenos jedna
   lmem[3]:=lmem[3]+2
   gmem[lmem[3]]:=0                  ; je třeba znulovat i c[n], které se vlastně nepočítá
   lmem[3]:=lmem[3]-1
   gmem[lmem[3]]:=0
   if lmem[4]>=0 then gmem[lmem[3]]:=lmem[4]
   if lmem[0]<>0 then halt           ; dále pokračuje jen O(n) procesorů
   gmem[lmem[1]]:=gmem[lmem[1]]+gmem[lmem[2]];
   lmem[2]:=gmem[0]+lmem[2]          ; přičetli jsme druhou cifru z dvojice
   lmem[2]:=lmem[2]+1
   gmem[lmem[1]]:=gmem[lmem[1]]+gmem[lmem[2]];
   gmem[lmem[1]]:=gmem[lmem[1]]%2    ; přičetli přenos a vypočetli zbytek
   if lmem[1]<>1 then halt           ; dál už běží pouze jeden procesor, který spočte gmem[0]
   lmem[2]:=lmem[2]-1
   gmem[0]:=gmem[lmem[2]]            ; přiřadíme prostě přenos
   halt