let dir name contents = `Directory (name, contents)