procedure xapply(f, lst); lisp(f . cdr(lst))
$