mathematica删除额外的花括号

Question

将数据查询到mathematica中，我得到了以下格式的列表/数组

x = {{},{},{},{}}

我想绘制一个LayeredGraphPlot 但我需要数据如下 LayeredGraphPlot [{}，{}，{}]

如何删除花括号的外层 的 { {}，{}，{}的}