Function String-Elide

Part of:

package kmrcl
( string-elide < str > < maxlen > < position > )