FileTree : rc ->
Arg Path, Mask : String, F : < String >

Call FilesIn Target ( Name : 
                             If Name, IS_DIRECTORY then
                              Call FileTree Name Mask F
                             Else
                              Call F Name
                    )
Where Target = Path '/' Mask

Return