(defvar cnt)
(setq cnt 0)
(loop for char = (read-char nil nil) do
        (if (eql char #\Newline) (return))
        (if (eql char #\n) (incf cnt))
)
(format t "~d~%" cnt)