Array を一段階だけ平滑化する関数は
（flatten が再帰的じゃないバージョン）
はないでしょうか？