;Generate a rectangular window function of buffer_size N (bind-func rectangular_window_func:[void,float*,i64]* (lambda (wn:float* N:i64) (let ((n:i64 0)) (dotimes (n N) (pset! wn n 1.0)) void)))