[Haskell-beginners] performance issues

Hello everybody, I am a newbie to haskell. I was wondering if there are things I need to do to make the following code faster. I have tried changing the Integer to Int but did not help much.. https://gist.github.com/c1ee2d6397cd5b28ade5 Thanks in advance. Sunil.