On Mon, Apr 11, 2011 at 10:14 AM, Maciej Marcin Piechotka <uzytkownik2 at gmail.com> wrote: >> main = mapM (\x -> return $! c_sin_u) [1..n] > 0.012 s This should be main = mapM (\x -> return $! c_sin_u x) [1..n] -- Felipe.