module Test where test :: Double -> Double test d = exp( (-2.0) * pi * d / 48000)