(* Register allocation by coloring of the interference graph *)
val allocate_registers: unit -> unit