S =INPUT
L OUTPUT =(SUBSTR(&UCASE,1,ORD(S) - 64),'')
 S =SUBSTR(S,2) :S(L)
END