program main integer(16) :: n read *, n print '(I0, A1)', n, "0" end