alias cpt {
  var %l = $calc($len($1) - 1)
  var %t = $utfdecode($upper($mid($1,1,1)) $+ $lower($right($1,%l)),001)
  return %t
}