%include "MonteCarlo"

time_till_n_heads :: num -> process num
|| no. of coin tosses BEFORE first run of n heads
  time_till_n_heads n s = 0, and (map (>=.5) (take n s))
                        = time_till_n_heads n (tl s) + 1, otherwise
