string_tree = binary_tree_of %s x = 'foo': ('bar': (),'baz': ()) #cast string_tree example = (binary_tree_map "s". "s"--"s") x