let cudf_parse_input urilist =
  match urilist with
  |[[p]] when (unpack p) = "-" -> fatal "no stdin for cudf yet"
  |[[p]] -> cudf_load_list (unpack p)
  |->
    if List.length (List.flatten l) > 1 then
      warning "more then one cudf speficied on the command line";
    let p = List.hd (List.flatten l) in 
    cudf_load_list (unpack p)