(defun f(n)(when(> n 0)(f(ash n -8))(princ(int-char(rem n 256)))))(f(read))