speed up haskell euler 9 from 35 sec to 0.5