(defun sum_from_to(TERM from NEXT to)
    (IF (> from to)
        0
        (+ (funcall TERM from)
            (sum_from_to
                TERM
                (funcall NEXT from)
                NEXT
                to))))
        
(defun addone (c) (+ 1 c))
(defun self(x) x)
(defun square (A) (* A A))

(defun sum-int (A B)
    (sum_from_to #'self A #'addone B))

(defun sum-sq(A B)
    (sum_from_to #'square A #'addone B))

(print (sum-int 3 5))
(print (sum-sq 3 5))