sig
  val neighbourhoods : int array array
  val distance_to_boundary : int -> int
  val init_drawings : simulation_time:int -> unit
  val draw_configuration :
    unit -> ('a -> Graphics.color) -> 'a array -> int -> unit
end