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