(load "lib/primitives.rls")
(load "lib/primitive/foldl.rls")
(load "lib/primitive/foldr.rls")
(load "lib/primitive/reverse.rls")
(load "lib/primitive/map.rls")
(load "lib/primitive/append.rls")
(load "lib/util.rls")

(values
 (basename "/")
 (basename "///")
 (basename "/abcd")
 (basename "abcd")
 (basename "///a/b/c/d/")
 (basename "/a//b/c/d")
 (basename "/a/b/c//d")
 (basename "/a/b/c/d//")
 (dirname "/")
 (dirname "////")
 (dirname "/abcd")
 (dirname "abcd")
 (dirname "/a/b//c//d")
 (dirname "a//b/c/d")
 (dirname "a/b/c/d/")
 (dirname "a/b/c/d///")
 (vector-slice #(1 2 3 4 5) 0)
 (vector-slice #(1 2 3 4 5) 2 2)
 )