Haskell Week 4 + Couple Project Euler