let list_map l ~f = let open SP in fun ~var_count -> entity ( string "List.map" ^^ nest (string "~f:" ^^ f ~var_count) ^^ l ~var_count )