(SKSH_PP,08)(31(29,local)(04,_new_dir))(39(74(65(02,$#)(01,0))(75(02,$1)(01,-?)))(32(31(29,echo)(01,Usage:)(19(31(29,basename)(04,$0))))(31(29,echo)(01, (pops directory from directory stack)))(31(29,return)(04,1))))(25(61(02,$DIRSTACK))(25(31(29,echo)(01,The directory stack is empty))(31(29,return)(04,1))))(31(04,_new_dir)(21,=)(19(31(29,car)(02,$DIRSTACK)(01,,))))(31(04,DIRSTACK)(21,=)(19(31(29,cdr)(02,$DIRSTACK)(01,,))))(31(29,export)(04,-l)(04,DIRSTACK))(26(06(11(04,nil:))(31(29,cd)(02,$_new_dir)))(31(29,echo)(02,$0: Can't cd to $_new_dir.)))
