AG
Size: a a a
AG
A
A
LO
AC
ХГ
A
ХГ
root = Dir "/" [ Dir "folder1" [ File "file1", Dir "folder2" [ File "file2", File "file3"],
Dir "folder3" [ File "file3", File "file4"], File "file5"] ]
AG
ХГ
type Name = String
type Path = String
data FSNode = File Name | Dir Name [FSNode]
ХГ
AG
A
ХГ
ХГ
A
ХГ
A
A
ХГ
search "file3" root -- ["//folder1/folder2/file3", "//folder1/folder3/file3"]