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