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