let cudf_parse_input urilist =
match urilist with
|[[p]] when (unpack p) = "-" -> fatal "no stdin for cudf yet"
|[[p]] -> cudf_load_list (unpack p)
|l ->
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)