update Environment_init_ycl.hs