program W implicit none integer(16)::N read*,N print"(i0)",316_16+(N-1_16)*52 end program W