sig
  val scale :
    int -> 'Ga_types.population -> Ga_types.gvars -> 'Ga_types.chromosome
end