method move_x     (x : int) : unit = self#set_x (self#get_x + x)