(@ max items .res +-
    (.* items item >
        (![res] >
            (item .res)
        >
            ([> res] item >
                (item .res)
            >
                ;
            )
        )
    )
+
    {A|L} items
+
    [items]
)




