#lang scheme
;(printf "~a~n" (current-directory))

(require (planet "test.ss" ("dherman" "test.plt" 1)))
(printf "~a~n" (source-directory-of-expression fo))
;(in-this-directory
; (printf "~a~n" (current-directory)))
;(printf "~a~n" (source-directory-of-expression foo))