(defun sunel(x) (- 1.5 (* (+ 0.5 (first x)) (+ 0.5 (first x)))))
(new-fitness-function 'sunel)
