(defparameter flg (make-array 16))

(setf flg #(
(0 0 0 0)
(0 0 1 0)
(0 1 0 0)
(0 1 1 0)
(1 0 0 0)
(1 0 1 0)
(1 1 0 0)
(1 1 1 0)
(0 0 0 1)
(0 0 1 1)
(0 1 0 1)
(0 1 1 1)
(1 0 0 1)
(1 0 1 1)
(1 1 0 1)
(1 1 1 1)
)
)

(defparameter input (read-from-string (concatenate 'string "(" (read-line) ")")))

(if (equal (aref flg  0) input) (format 't "SURVIVED~%")) 
(if (equal (aref flg  1) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  2) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  3) input) (format 't "DEAD~%"))
(if (equal (aref flg  4) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  5) input) (format 't "DEAD~%"))
(if (equal (aref flg  6) input) (format 't "DEAD~%"))
(if (equal (aref flg  7) input) (format 't "DEAD~%"))
(if (equal (aref flg  8) input) (format 't "SURVIVED~%"))
(if (equal (aref flg  9) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 10) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 11) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 12) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 13) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 14) input) (format 't "SURVIVED~%"))
(if (equal (aref flg 15) input) (format 't "SURVIVED~%"))