(define (db-query conn statement #!optional (vars '()))
  (let ((sql (ssql->sql conn statement)))
    (query* conn sql vars)))

(let ((statement (alist->ssql 'users '((name . "foo") (email . "foo@bar") (age . 40)))))
  (apply db-query db-connection statement))