let ul_filter l =     concat (List.filter l ~f:(fun t -> t <> empty)              |> List.map ~f:(fun t -> s "- " % t % n))     % n