Function String-Maybe-Shorten

Part of:

package kmrcl
( string-maybe-shorten < str > < maxlen > )