pi4 seriesLength = sum
  . take seriesLength
  . map (\n -> 1/n)
  . iterate (\n -> -1 * (n + signum n * 2))
  $ 1