let cp_grain_probability = new float_cp ~group ["rule";"sandpile";"grain_probability"]
  ~short_name:"sg" 0.0002 "Probability for a cell to get an extra grain, at each time step."