let split_by_day prefix =
  let f ((y,m,d), tdl) =
    let file = Printf.sprintf "%s-%04d-%02d-%02d.tdl" prefix y m d in
    Tdl.print_file file tdl
  in
  Tdl.split_by_day f