import Math.Statistics.Fusion
import qualified Data.Vector.Unboxed as U
import Text.Printf

main = printf "%f\n" (geometric (U.replicate 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


-}

{-
6.12

Main_mainzuzdszdwfoldlMzuloop_info:
        testq   %r14, %r14
        jle     .L11
        leaq    -1(%r14), %r14
        incq    %rsi
        mulsd   .LC0(%rip), %xmm5
        jmp     Main_mainzuzdszdwfoldlMzuloop_info

-}