(defun main ()
  (loop for l = (read *standard-input* nil :eof)
       until (eq l :eof)
       do (format t "~a~%" (abs l))))

(main)