# Versión Korn Shell de dirname
function kdirname {
# Comprobar argumentos
if (($# ==0 || $# > 1)); then
print "Uso: ${0##*/} string"
exit 1
fi
# Obtener el nombre del directorio
print ${1%/*}
}