; ループで読み込み続けてカウントする
; (RED の個数) < 2 なら BLUE をそれ以外なら RED を出力する
(defun main (&rest argv)
  (declare (ignorable argv))
  (write-line (if (< (loop repeat 3
                           for s = (read)
                           count (eql s 'RED))
                     2)
                  "BLUE"
                  "RED")))
(main)