program boz_01
implicit none

integer :: boz_1, boz_2, boz_3

boz_1 = int(b'01011101')
boz_2 = int(o'2347')
boz_3 = int(z'ABC')

print *, boz_1, boz_2, boz_3
end program
