Function Last-Char

( last-char < s > )