let
list_map l ~f =
fun
~var_count
->
`
Assoc
[
"list-map"
, f ~var_count;
"argument"
, l ~var_count; ]