M: internet checksum-bytes
    drop 0 swap 2 <sliced-groups> [ le> + ] each
    [ -16 shift ] [ HEX: ffff bitand ] bi +
    [ -16 shift ] keep + bitnot 2 >le ;