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