(begin-for-syntax
 (import srfi-4)
 (import srfi-1)
 (let [(m (map (lambda (f) (make-u8vector (inexact->exact (* 1024 1024))))
	       (iota 1024)))]
   (print "foo")))
(print "bar")