; d が 1 のとき生存
; a + b + c < 2 のとき生存
; それ以外は脂肪
(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((a (read))
         (b (read))
         (c (read))
         (d (read)))
    (princ (cond
            ((= d 1) 'SURVIVED)
            ((< (+ a b c) 2) 'SURVIVED)
            (t 'DEAD)))
    (terpri)))
(main)