let tdl_of_file f = let g = match f with "-" -> Tdl.group_of_channel stdin | _ -> Tdl.group_of_file f in match !filter with None -> g | Some f -> Tdl.filter_group f g