(def 'orig .)
(do (not (= / (pwd)))
    (cd ..)
    (echo .))
(cd ,orig)
(undef 'orig)