import Math.Statistics.Fusion
import Data.Array.Vector
import Text.Printf

main = printf "%f\n" (geometric (replicateU 10000000 (pi :: Double)))

{-
Main_zdwfold_info:
.Lc126:
  movq %rdi,%rax
  cmpq $10000000,%rax
  jne .Lc12a
  movq %rsi,%rbx
  jmp *(%rbp)
.Lc12a:
  incq %rax
  leaq 1(%rsi),%rcx
  mulsd .Ln12c(%rip),%xmm5
  movq %rcx,%rsi
  movq %rax,%rdi
  jmp Main_zdwfold_info


-}