Simple Gibbs sampler demonstration on conditional exponentials from Chapter 1 (pages 30-33).
expo.gibbs(B,k,m)
B
k
m