<>;while(<>){@_=/\S/g;$v+=1<<$_ for@_[0..3];$k|=$_[4]eq Y?~$v:$v;$v=0}$v++while$k>>$v&1;print$v