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