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