let set_width x  = width := x