(defun diferenca ()

  (setf x (read))
  (setf y (read))
  (print (- x y))
)