Listing 1

setx() { x=`pwd`; export x; }
sety() { y=`pwd`; export y; }
setz() { z=`pwd`; export z; }
gox() { cd $x; pwd; }
goy() { cd $y; pwd; }
goz() { cd $z; pwd; }