(defparameter N (read-line))
(if (not (equal N "0" )) (setq N (concatenate 'string N "0")))
(format 't "~a~%" N )