let
map_length_1 =
function
lx
->
(map_to_all (
List
.length)) (lx)