Module Setcore

val numcores : unit -> int
val setcore : int -> unit