>>447
いつもありがとうございます。
お見事に算出されました。

*Main Data.List> :main
[[34,27,18,15,5,4,1]]