program main implicit none integer*8::H,W read *,H,W if(H.gt.W) then print '(a)',"TATE" else print '(a)',"YOKO" end if end program main