case "$-" in *i*)
        set -o emacs
        alias exit='clear; exit'
        
        prompt()
        {       
                if [ $(/usr/bin/id -u) -eq 0 ]; then
                        echo '# '
                else    
                        echo '$ '
                fi
        }
               
        escape()
        {              
                echo $1 | sed 's/\//\\/g'
        }
               
        curdir()
        {              
                pwd | sed "s/\/$(escape $HOME)/~/"
        }
        
        export PS1="\$USER@NetBSD \$(curdir)$(prompt)"

        ;;
esac