(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))
)

(setq ecnt (floor ecnt 2)) 
;(print tcnt)
;(print rcnt)
;(print ecnt)
(format 't "~d~%" (min tcnt rcnt ecnt))