(let((l(let((max 0)(min 0)(l(let((l(print(let((l(make-list(read))))(dotimes(i(length l))(setf(elt l i)(-(random 200)100)))l))))(print(apply '+ l))l)))(dotimes(i(length l))(if(>(elt l i)(elt l max))(setf max i)(if(<(elt l i)(elt l min))(setf min i))))(subseq l(1+(min max min))(max max min)))))(if l(print(apply '* l))))