program hex
  implicit none
  character(1) :: x, y
  read(*,*) x, y
  if (ichar(x) .lt. ichar(y)) then
    write(*,'(a)') "<"
  else if (ichar(x) .lt. ichar(y)) then
    write(*,'(a)') ">"
  else
    write(*,'(a)') "="
  end if
end program hex