(defun main (&rest argv) (declare (ignorable argv)) (let* ((l (read)) (n (read)) (s (loop repeat n collect (read)))) (declare (ignore s)) (format t "~d~%" (* n (ash 1 (- l 3)))))) (main)