; ミーン文字列を繰り返した文字列が与えられているので
; 与えられた入力文字列の 'n' の数を数える
(defun main (&rest argv)
  (declare (ignorable argv))
  (princ (count #\n (read-line)))
  (terpri))
(main)