#!/usr/local/bin/sbcl --script
(defun diferenca ()

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