(define (alist->ssql-insert table alist)
  (cons `(insert (into ,table) 
                 (columns . ,(map car alist))
                 (values ,(list->vector
                           (list-tabulate (length alist) 
                                          (lambda (p) 
                                            (string->symbol (sprintf "$~A" (add1 p))))))))
        (map cdr alist)))

(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))