SysIII/bin/basename

a=`expr ${1-.}// : '\(.*[^/]\)//*$'`
expr //$a : ".*/\(.*\)$2"