Toms 60 harc 4

(defun fact (y)
    (if(= y 0) 1 
    (if(= y -1) 1 
    (* y (fact (- y 2)))))
)

(defun sum (x) 
   ( if(= 0 x) 0
    (+ (sum (- x 1)) (* x (* x x))))
)

(defun f (x y) 
    (/ (sum x) (fact y))
  )  
(write (f 10 10))