function dir {
    WHERE="`pwd`"
    cd $*
    DIRS=
    FILES=
    for Q in *
        do if [ -d "$Q" ]
            then DIRS="$DIRS $Q"
            else FILES="$FILES $Q"
        fi
    done
    ls -d $DIRS
    ls -d $FILES
    cd $WHERE
}