(defun r(n)(if(> n 255)(r(floor n 256)))(princ(int-char(mod n 256))))(r(read))