program www_fcode_cn implicit none integer :: x read(*,*) x write(*,'(b32.32)') x write(*,'(z8.8)') x end program www_fcode_cn