map$_/(grep!($_[0]%$_|$_[1]%$_),1..$_)[-1],@_