euler 30 solution haskell

really brute forced and unelegant solution