(import-for-syntax (chicken format))

(define-syntax load-and-import
  (er-macro-transformer
    (lambda (expr rename compare)
      (let ((mods (cdr expr)))
        (map (lambda (mod)
               (load (sprintf "~A.scm" mod))
               `(import ,mod)
               )
             mods)
        ""))))

(load-and-import foo bar)