let list_map l ~f =   fun ~var_count ->     Tree.node "List.map" [       Tree.arrow "list" (l ~var_count);       Tree.arrow "function" (f ~var_count);     ]