(defparameter tcnt 0)
(defparameter rcnt 0)
(defparameter ecnt 0)
(loop for char = (read-char nil nil)
      while char do
        (if (char= char #\Newline) (return))
		(if (char= char #\t) (incf tcnt))
		(if (char= char #\r) (incf rcnt))
		(if (char= char #\e) (incf ecnt))
)