smp版のghc（6.6）使ってる人いる？
core2duoのlinux上で試してるんだけど、独立した計算を2つのthreadで同時に
やると、1つずつやるより遅くなってしまう…

main = do
m1 <- newMVar iv
m2 <- newMVar iv
s3 <- takeMVar m1
s4 <- takeMVar m2
t1 <- forkIO (summer m1 80000000)
t2 <- forkIO (summer m2 80000000) 　-- (1)
s1 <- takeMVar m1 　　　　　　　　 　　　-- (2)
s2 <- takeMVar m2
putStr $ "s1: " ++ (show s1) ++ " s2: " ++ (show s2)

summer m n = if s > 0 then putMVar m s else putMVar m 1
where s = summing n 0 -- summingは0からnまでの和を求める関数

上のcodeだと13秒くらいだが，(1)(2)を入れ替える（つまりthread t1の終了を待ってから
thread t2をはじめる）と、9秒くらいになる。
compile時は-smpをつけて、実行時には+RTS -N2を指定してるんだが…