actually working euler2.hs