module Density:sig..end
exception Zero
val number_of : 'a list -> 'a array -> intnumber_of states configuration gives
    the number of cells in configuration
    which are in one of the states states.
    Optimized in case the list states contains one or two elements.