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 human skeleton weighs about 14% of the total body mass. The average human adult skeleton consists of 206 bones.. An average human skull weighs 2.2 pounds (lbs.) Bones are very light .The skeleton weighs less than 20 pounds. In an adult, the skeleton comprises around 20% of the total body weight. The average weight of an adult is approx. 75.3 kg so in an adult the skeleton comprises around 15 kg or 26 pounds. This weight of course varies depending on height, sex, and body weight.