(defparameter migi 0)
(defparameter hidari 0)
(defparameter cnt 0)
(defparameter mae nil)
(loop for char = (read-char nil nil) do
	(if (eq char #\#) (return))
	(if (and (eq char #\*) (eq mae #\^)) (incf hidari))
	(if (and (eq char #\*) (eq mae #\()) (incf migi))

	(setq mae char)
)

(format t "~d ~d~%" hidari migi)