let
copy_channel c =
{ c
with
ch_items =
List
.map copy_item c.ch_items }