Function String-Maybe-Shorten

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