>>926
それはベンチマークに使われているコードが悪い。

main = print $ lookup 100 (map (\i -> (i,i)) [1..10000000])

time ./M
Just 100

real 0m0.005s
user 0m0.000s
sys 0m0.003s