program main
	implicit none
	integer a,b
	character x,y
	read(*,*)x,y
	select case(x)
		case('A')
			a=1
		case('B')
			a=2
		case('C')
			a=3
		case('D')
			a=4
		case('E')
			a=5
		case('F')
			a=6
	end select
	select case(y)
		case('A')
			b=1
		case('B')
			b=2
		case('C')
			b=3
		case('D')
			b=4
		case('E')
			b=5
		case('F')
			b=6
	end select
	if(a<b)then
		write(*,*)"<"
	else if(a==b)then
		write(*,*)"="
	else
		write(*,*)">"
	endif
end program main
