program main
  use mod_ascii
  implicit none
  integer(1) :: i

  i = 33
  print"(z2.2,1x,a1)", i,ascii(i)
end program main