let upper_of s = s.upper