The problem is that you are reversing the string a few times. The following will do: (defun base8 (n) (let ((t8 (truncate n 8)) (m8 (mod n 8))) (if (= t8 0) (list m8) (append (base8 t8) (list m8))))) EDIT Here's a solution without append, using a helper function.
So, the average weight for a healthy, human kidney is 0.26-0.30 pounds. (approx.) The average weight for a healthy, human kidney is 120-140 grams. 1 pound= 453.59237 grams. So, the average weight for a healthy, human kidney is 0.26-0.30 pounds. (approx.) The average weight for a healthy, human kidney is 120-140 grams. 1 pound= 453.59237 grams. So, the average weight for a healthy, human kidney is 0.26-0.30 pounds.
In adult males, the kidney weighs between 125 and 170 grams. In females the weight of the kidney is between 115 and 155 grams. A Danish study measured the median renal length to be 11.2 cm (4.4 in) on the left side and 10.9 cm (4.3 in) on the right side in adults. Median renal volumes were 146 cm3 on the left and 134 cm3 on the right.