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