- let speclist = Arg.align [
- ("-x", Arg.Set_int x, " X.");
- ("-y", Arg.Set_int y, " Y.");
- ] in
+ let speclist =
+ Arg.align
+ [ ("-f", Arg.Set_float f, " Probability of spontaneous ignition.")
+ ; ("-p", Arg.Set_float p, " Probability of spontaneous growth.")
+ ; ("-x", Arg.Set_int x, " Forest width.")
+ ; ("-y", Arg.Set_int y, " Forest height.")
+ ; ("-i", Arg.Set_float interval, " Induced interval between generations.")
+ ]
+ in