(apply-prim () (apply-procval (expressed->procval (car args)) (expressed->list (cadr args))))
What code would you write in apply-primitive to add an apply primitive to the interpreter?