<>;<>=~chop,print$`.$_.$`lt$_.$`.$_?X:Y,$/while<>