Function First-Char

( first-char < s > )