<>;print$_.($y=<>).$_ gt$y.$_.$y?X:Y,$/while<>