let of_list f lst =
  LST (List.map f lst)