let rr f x y = (f y = ('-','-'))||(ss f x y)