(loop(princ(case(set'c(read-char))(#\$'\ )(#\.'*)(t c))))