alias countcaps { return $regex($1-,/[A-Z]/g) }
alias percent { return $calc(($2 / $1) * 100) $+ % }
alias caps { return $percent($countcaps($1-),$len($1-)) }

echo -a $caps(ABcdEFgh)