(((ebx <- 1)
  (edi <- 1)
  (esi <- 1)
  (eax <- (allocate 61 1))
  (call :calc_exponents)
  (eax <- (print eax)))
  (:calc_exponents
   (esp -= 8)
   ((mem esp 0) <- edi)
   ((mem esp 4) <- ebx)
   (edi <- (mem eax 0)) ;size
   (ecx <- 0) 
   (ebx <- eax)
   (ebx += 4)
   
   :loop
   (edx <- 1)
   (edx <<= ecx)
   (edx <<= 1)
   (edx += 1)
   ((mem ebx 0) <- edx)
   (ebx += 4)
   (ecx += 1)
   (cjump ecx < edi :loop :done)
   :done
   (edi <- (mem esp 0))
   (ebx <- (mem esp 4))
   (return)
   ))
   