USING: command-line namespaces io io.files io.pathnames tools.files sequences kernel ; command-line get [ current-directory get directory. ] [ dup length 1 = [ first directory. ] [ [ [ nl write ":" print ] [ directory. ] bi ] each ] if ] if-empty