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.
On average, a kidney weighs approximately 150 to 160 grams and, together, both kidneys weigh about 0.5 percent of total body weight. Usually, the left kidney is slightly larger than the right. These measurements and weights represent the typical ranges of a healthy, adult human kidney.
The average adult heart is about the size of a clenched fist and weighs about 11 ounces (310 grams).. The heart is a relatively small (no bigger than a clenched fist), hollow, muscular organ which is in charge of pumping blood throughout the body and to other organs. Adult male-300-310 grams. Adult female-250-260 grams.