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)
  |->
    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)