(defun! list/map (f xs)
  (if xs
    (cons (funcall f (car xs)) (list/map f (cdr xs)))
    nil))