#!/bin/ksh -p

for w ; do
  b=$(echo $w | awk '{print substr($1,2)}') ;
  a=$(echo $w | awk '{print substr($1,1,1)}' | tr '[a-z]' '[A-Z]') ;
  echo $a$b ;
done