let set_GC () = 
        let _ = Gc.set { (Gc.get()) with Gc.minor_heap_size = 0xFFFFFF } in
        let _ = Gc.set { (Gc.get()) with Gc.major_heap_increment = 0xFFFFFF } in
        let _ = Gc.set { (Gc.get()) with Gc.space_overhead = 100 } in
        let _ = Gc.set { (Gc.get()) with Gc.max_overhead = 0xFFFFF } in
        let _ = Gc.set { (Gc.get()) with Gc.stack_limit = 0xFFFFF } in
        let _ = Gc.set { (Gc.get()) with Gc.allocation_policy = 0 } in
        ()