FFT implementation and simple spectral analyzer in Haskell