Function First-Char

Part of:

package kmrcl
( first-char < s > )