58 SpiralPrimes The length $ takeWhile $ scanl pattern