Proper way to do the destructuring bind?

convert-csv-to-json.ss

#!/usr/bin/env gxi

(import
  :gerbil/gambit
  :gerbil/gambit/ports
  :std/format
  :std/generic
  :std/iter
  :std/misc/list
  :std/misc/ports
  :std/sugar
  :std/text/csv
  :std/text/json)

(def test-csv "A,B,C,D,E,F,G
1,2,3,4,5,6,7
foo,bar,baz,krunk,kaffe,deadbeef,feedface")

(def (main . args)
  (let* ((data (call-with-input-string test-csv read-csv-lines))
         (header (car data))
         (results []))
    (for (line (cdr data))
      (with ([
              A
              B
              C
              D
              E
              F
              G
              ] line)
        (set! results (cons (hash
                             ("A" A)
                             ("B" B)
                             ("C" C)
                             ("D" D)
                             ("E" E)
                             ("F" F)
                             ("G" G))
                             results))))
    (displayln (json-object->string results))))

(main)