main :: IO ()
main = defaultMain [
    bgroup "Encoding"
     [ bench "8 bits per sample"  $ nf (\n -> encode $ fromSound n test) 8
     , bench "16 bits per sample" $ nf (\n -> encode $ fromSound n test) 16
     , bench "32 bits per sample" $ nf (\n -> encode $ fromSound n test) 32
       ]
  ]
main :: IO ()
main = defaultMain [
    bgroup "Encoding"
     [ bench "8 bits per sample"  $ nf (\n -> encode $ fromSound n test) 8
     , bench "16 bits per sample" $ nf (\n -> encode $ fromSound n test) 16
     , bench "32 bits per sample" $ nf (\n -> encode $ fromSound n test) 32
       ]
  ]
main = defaultMain [
    bgroup "Encoding"
     [ bench "8 bits per sample"  $ nf (\n -> encode $ fromSound n test) 8
     , bench "16 bits per sample" $ nf (\n -> encode $ fromSound n test) 16
     , bench "32 bits per sample" $ nf (\n -> encode $ fromSound n test) 32
       ]
  ]