program yukicoder_2385 use, intrinsic :: iso_fortran_env implicit none integer(int32), parameter :: n0 = iachar("0"), na = iachar("a") integer(int32) :: q integer(int32) :: i read(input_unit, *) q do i = 1, q call solve() end do contains impure subroutine solve() integer(int64) :: n character(len=70) :: s integer(int32) :: i read(input_unit, *) s if (len_trim(s) == 1) then write(output_unit, '(a)') trim(s) return end if ! write(error_unit, '(*(i0, 1x))') n0, na n = 0_int64 select case(s(1:2)) case("0b") do i = 3, len_trim(s) n = 2 * n n = n + iachar(s(i:i)) - n0 end do case("0o") do i = 3, len_trim(s) n = 8 * n n = n + iachar(s(i:i)) - n0 end do case("0x") do i = 3, len_trim(s) n = 16 * n if (iachar(s(i:i)) >= iachar("a")) then n = n + iachar(s(i:i)) - na + 10 else n = n + iachar(s(i:i)) - n0 end if end do case default write(output_unit, '(a)') trim(s) return end select write(output_unit, '(i0)') n end subroutine solve end program yukicoder_2385