+ move_to : p_figure -&w _, int+- x, y : . -
  figure.x :: x, y 
  figure.y :: x, y 

  figure.x <- x 
  figure.y <- x                                                                /*  "y from x - ??.." */
.