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