#!r6rs
(library (rsc3 supercollider fft)
(export packfft-data)
(import (rnrs)
	(rsc3 collection list)
	(rsc3 graphdef mce))

(define (packfft-data m p)
  (make-mce (cons (* 2 (length m)) (splice (map list m p)))))

)