(defun emb1 (x)
  (1+ x))

(defun emb2 (x)
  "Calling a lisp and a C function."
  (+ (emb1 x) (c-func x)))