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