[Haskell-cafe] Profiling slow multiplication of elements read from vector