{-# LANGUAGE DeriveDataTypeable, TypeOperators #-}
{-# LANGUAGE BangPatterns, ScopedTypeVariables, TypeOperators #-}

module Main (main) where

import W (analyseMean)
import qualified Data.Vector.Unboxed as U
import System.IO

main :: IO ()
main = do hSetBuffering stdout NoBuffering
          measureEnvironment

measureEnvironment :: IO ()
measureEnvironment = do
  putStrLn "W1"
  let x = U.replicate 159999 3.6
  analyseMean x
  putStrLn "W3"