File mttroot/mtt/bin/capitalise_initial artifact b5ca98d45c part of check-in 8d4d0bc2dc

#! /bin/sh

phrase="$*"
initial=$(echo $phrase | sed 's/\(.\).*/\1/')
Initial=$(echo $initial | tr [a-z] [A-Z])
echo $phrase | sed s/$initial/$Initial/