/*  area under curve for geometric distribution  */
/*  for probability p and duration k  */
p : .5$
k : 3$

  /*  manual calculation  */
sum(p * (1-p) ^ a, a, 0, k-1);