-- Chebyshev points
chebpts ::  Floating a => Int -> [a]
chebpts n = [sin (fromIntegral k*(pi/fromIntegral (2*n'))) | k <- [n',n'-2 .. -n']]
  where n' = bit n :: Int

-- Clenshaw-Curtis weights following Waldvogel
chebpts ::  Floating a => Int -> [a]
chebpts n = [sin (fromIntegral k*(pi/fromIntegral (2*n'))) | k <- [n',n'-2 .. -n']]
  where n' = bit n :: Int

-- Clenshaw-Curtis weights following Waldvogel
chebpts n = [sin (fromIntegral k*(pi/fromIntegral (2*n'))) | k <- [n',n'-2 .. -n']]
  where n' = bit n :: Int

-- Clenshaw-Curtis weights following Waldvogel