functor (Topo : Types.Topology) ->
  functor (Parameters : Parameters) ->
    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