let list l =
  fun ~var_count ->
    `List (List.map ~f:(fun a -> a ~var_count) l)