(defvar n (read)) (defvar s (loop repeat (1- n) sum (read))) (princ (1+ (floor (+ 100 (multiple-value-bind (_ x) (ceiling s n) x)) n))) (fresh-line)