(loop(if(eq(princ(read-char))#\9)_))