please let me know if using (ice-9 format) this fixes the problem, try this: (use-modules (ice-9 format)) (new seq :name 'pulse :subobjects (loop with d = .1 for i below 80 collect (new midi :time (* i d) :keynum (pickl '(c4 d4 ef4 f4 g4 af4 bf4 c5)) :duration d :amplitude (interp (mod i 8) 0 .25 7 .75)))) (list-objects #&pulse :end 3)