sig val uppercase_ascii : char -> char val lowercase_ascii : char -> char end