Function String->Html

Part of:

package tinaa
( string->html < string > &optional < max-length > )