Function Last-Char

Part of:

package kmrcl
( last-char < s > )