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