use bigrat;print((shift()*10**1000/shift)=~"/"?N:Y,$/)

##</code><code>##

use bigrat;print[Y,N]->[(shift()*10**1000/shift)=~"/"],$/

##</code><code>##

use bigrat;$_=shift()*10**1000/shift;print[Y,N]->[m"/"],$/