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