(defvar N)
(setq N (parse-integer (read-line)))
(defvar ans)
(setf ans (make-array (+ N 1)))
(setf (aref ans 0) 1)
(setf (aref ans 1) 1)
(loop for i from 2 to N do
      (setf (aref ans i) (+ (aref ans (- i 1)) (aref ans (- i 2))))
      )
(format t "~d~%" (aref ans N))