with(StringTools): str:="2-h/": if ""<>Select(IsAlpha, str) then `has alphas` else `no alphas` fi; str:="2-/": if ""<>Select(IsAlpha, str) then `has alphas` else `no alphas` fi;