(loop(princ #0=(read-char))#0#)