let edsp_parse_input options urilist =
match urilist with
|[[p]] when (unpack p) = "-" -> fatal "no stdin for edsp yet"
|[[p]] -> edsp_load_list options (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
edsp_load_list options (unpack p)