gistfile1.el

(defun square (num)
  (* num num))

(defun largest (n nums)
  (last (sort nums '<) n))

(defun sum-square-largest-2 (&rest nums)
  (apply '+ (mapcar 'square (largest 2 nums))))