diff --git a/src/main.lisp b/src/main.lisp
index d8bf02d..60f8e24 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -35,17 +35,17 @@ Nextcloud tables"
 (defun post-health-form (data-list)
   "Takes the health form as an alist and posts it to nocodb"
   (let* ((student-name (concatenate 'string
-                                    (cdr (assoc "firstname" data-list
-                                                :test 'string=))
+                                    (serapeum:trim-whitespace (cdr (assoc "firstname" data-list
+                                                                          :test 'string=)))
                                     " "
-                                    (cdr (assoc "lastname" data-list
-                                                :test 'string=))))
+                                    (serapeum:trim-whitespace (cdr (assoc "lastname" data-list
+                                                                          :test 'string=)))))
          (parent-name (concatenate 'string
-                                   (cdr (assoc "parentfirstname" data-list
-                                               :test 'string=))
+                                   (serapeum:trim-whitespace (cdr (assoc "parentfirstname" data-list
+                                                                         :test 'string=)))
                                    " "
-                                   (cdr (assoc "parentlastname" data-list
-                                               :test 'string=))))
+                                   (serapeum:trim-whitespace (cdr (assoc "parentlastname" data-list
+                                                                         :test 'string=)))))
          (image (assoc "image" data-list))
          (headers (list (cons "Authorization" *auth-token*)
                         (cons "Content-Type" "application/json"))))
@@ -88,16 +88,52 @@ Nextcloud tables"
           "allergy-treatments")
     (setf (car (assoc "tetanus-shot" data-list :test 'string=))
           "tetanus-shot-date")
-    (setq data-list (loop :for entry :in data-list
-                          :collect (format t "~&~A" entry)))
+    (loop :for entry :in data-list
+          :do (format t "~&~A" entry))
     (format t "~&~A" "Let's print out the data")
     (format t "~&~A" data-list)
     (setq *last-list-data* data-list)
+    (println *last-list-data*)
+
+    (setf data `#(("columnId" 37 "value" ,(serapeum:trim-whitespace (cdr (assoc "Student Name" *last-list-data* :test 'string=))))
+                 ("columnId" 38 "value" ,(serapeum:trim-whitespace (cdr (assoc "Parent Name" *last-list-data* :test 'string=))))
+                 ("columnId" 39 "value" ,(serapeum:trim-whitespace (cdr (assoc "birthdate" *last-list-data* :test 'string=))))
+                 ("columnId" 40 "value" ,(serapeum:trim-whitespace (cdr (assoc "street" *last-list-data* :test 'string=))))
+                 ("columnId" 41 "value" ,(serapeum:trim-whitespace (cdr (assoc "city" *last-list-data* :test 'string=))))
+                 ("columnId" 42 "value" ,(serapeum:trim-whitespace (cdr (assoc "state" *last-list-data* :test 'string=))))
+                 ("columnId" 43 "value" ,(serapeum:trim-whitespace (cdr (assoc "zip" *last-list-data* :test 'string=))))
+                 ("columnId" 44 "value" ,(serapeum:trim-whitespace (cdr (assoc "cellphone" *last-list-data* :test 'string=))))
+                 ("columnId" 45 "value" ,(serapeum:trim-whitespace (cdr (assoc "homephone" *last-list-data* :test 'string=))))
+                 ("columnId" 46 "value" ,(serapeum:trim-whitespace (cdr (assoc "emergency-contact" *last-list-data* :test 'string=))))
+                 ("columnId" 47 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor" *last-list-data* :test 'string=))))
+                 ("columnId" 48 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor-city" *last-list-data* :test 'string=))))
+                 ("columnId" 49 "value" ,(serapeum:trim-whitespace (cdr (assoc "doctor-phone" *last-list-data* :test 'string=))))
+                 ("columnId" 50 "value" ,(serapeum:trim-whitespace (cdr (assoc "medical-coverage" *last-list-data* :test 'string=))))
+                 ("columnId" 51 "value" ,(serapeum:trim-whitespace (cdr (assoc "insurance-name" *last-list-data* :test 'string=))))
+                 ("columnId" 52 "value" ,(serapeum:trim-whitespace (cdr (assoc "policy-number" *last-list-data* :test 'string=))))
+                 ("columnId" 53 "value" ,(serapeum:trim-whitespace (cdr (assoc "insurance-card" *last-list-data* :test 'string=))))
+                 ("columnId" 54 "value" ,(serapeum:trim-whitespace (cdr (assoc "agreement" *last-list-data* :test 'string=))))
+                 ("columnId" 55 "value" ,(serapeum:trim-whitespace (cdr (assoc "allergies" *last-list-data* :test 'string=))))
+                 ("columnId" 56 "value" ,(serapeum:trim-whitespace (cdr (assoc "specific-allergies" *last-list-data* :test 'string=))))
+                 ("columnId" 57 "value" ,(serapeum:trim-whitespace (cdr (assoc "allergy-treatment" *last-list-data* :test 'string=))))
+                 ("columnId" 58 "value" ,(serapeum:trim-whitespace (cdr (assoc "conditions" *last-list-data* :test 'string=))))
+                 ("columnId" 59 "value" ,(serapeum:trim-whitespace (cdr (assoc "tetanus-shot-date" *last-list-data* :test 'string=))))
+                 ("columnId" 60 "value" ,(serapeum:trim-whitespace (cdr (assoc "medication-schedule" *last-list-data* :test 'string=))))
+                 ("columnId" 61 "value" ,(serapeum:trim-whitespace (cdr (assoc "other-notes" *last-list-data* :test 'string=))))
+                 ("columnId" 62 "value" ,(serapeum:trim-whitespace (cdr (assoc "swimming-ability" *last-list-data* :test 'string=))))
+                 ))
+
+    ;; (loop for i in *last-list-data*
+    ;;       do (let ((key (car i))
+    ;;                (value (serapeum:trim-whitespace (cdr i))))
+    ;;            (format t "~&~a: ~a" key value)
+    ;;            (cond ((string= key "Student Name") (terpri) (println "woo")))))
 
     (dex:post "https://staff.tfcconnection.org/apps/tables/api/1/tables/4/rows"
               :basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b")
-              :content `(("tableid" . 4) ("data" . ,(stringify data-list)))
-              :verbose t)))
+              :content (stringify `(("tableid" . 4) ("data" . ,data)))
+              :verbose t)
+    ))
 
 (defun print-hash-entry (key value)
   (format t "~S: ~S~%" key