ifft :: Pull1 (Complex Float) -> Pull1 (Complex Float)
ifft v = bitRev steps $ ifftCore steps v
    where steps = ilog2 (length v) - 1
ifft :: Pull1 (Complex Float) -> Pull1 (Complex Float)
ifft v = bitRev steps $ ifftCore steps v
    where steps = ilog2 (length v) - 1
ifft v = bitRev steps $ ifftCore steps v
    where steps = ilog2 (length v) - 1