RosettaCodeData/Task/Substring/Maple/substring-4.maple

> pos := searchtext( ",", s ):
> s[ pos .. pos + m - 1 ];
                     ", The"

> pos := searchtext( "Higher", s ):
> s[ pos .. pos + m - 1 ];
                     "Highe"