Problem:
Score : 200 points

Problem Statement

There is a square in the xy-plane. The coordinates of its four vertices are (x_1,y_1),(x_2,y_2),(x_3,y_3) and (x_4,y_4) in counter-clockwise order.
(Assume that the positive x-axis points right, and the positive y-axis points up.)

Takahashi remembers (x_1,y_1) and (x_2,y_2), but he has forgot (x_3,y_3) and (x_4,y_4).

Given x_1,x_2,y_1,y_2, restore x_3,y_3,x_4,y_4. It can be shown that x_3,y_3,x_4 and y_4 uniquely exist and have integer values.

Constraints

|x_1|,|y_1|,|x_2|,|y_2| \leq 100

(x_1,y_1) ≠ (x_2,y_2)

All values in input are integers.

Input

Input is given from Standard Input in the following format:

x_1 y_1 x_2 y_2

Output

Print x_3,y_3,x_4 and y_4 as integers, in this order.

Sample Input 1

0 0 0 1

Sample Output 1

-1 1 -1 0

(0,0),(0,1),(-1,1),(-1,0) is the four vertices of a square in counter-clockwise order.
Note that (x_3,y_3)=(1,1),(x_4,y_4)=(1,0) is not accepted, as the vertices are in clockwise order.

Sample Input 2

2 3 6 6

Sample Output 2

3 10 -1 7

Sample Input 3

31 -41 -59 26

Sample Output 3

-126 -64 -36 -131

Solution in Common Lisp (SBCL 1.1.14) (judge verdict: Wrong Answer)

(defun b (x1 y1 x2 y2)
  (let ((x3 x2)
	(x4 x1)
	(y3 (+ y2 (- x2 x1)))
	(y4 (+ y1 (- x2 x1))))
    (list x3 y3 x3 x4)))

(defun split (line)
  (let ((result ()) (str ""))
    (dolist (i (loop for i across line collect i))
      (if (eql i #\space)
	  (progn
	    (setf result (append result (list (parse-integer str))))
	    (setf str ""))
	  (setf str (concatenate 'string str (string i)))))
    (setf result (append result (list (parse-integer str))))
    result))

(format t "~{~a ~}" (eval `(b ,@(split (read-line)))))