dir='/data/spectroscopy/primordial_family/inputBryce/'

  readcol, dir+'bryce', des, format='(A)', /Silent
  nbSSO=n_elements(des)


  for k=0, nbSSO-1 do begin


    if strCmp(des[k],'KittPeak') then des[k]='Kitt Peak'

;    print, des[k]
    info = vossodnet_resolver(des[k])


    if info[0].number ne 0 then begin
      print, 'forecast '+strTrim(string(info[0].number),2)+' 2018 02 01  2020 02 01  ./MPCORB.DAT'
    endif else begin
      if isNumeric(strmid(des[k],0,4)) then begin
        newName = strmid(des[k],0,4)+' '+strmid(des[k],4,10)
        info = vossodnet_resolver(newName)
        print, 'forecast '+strTrim(string(info[0].number),2)+' 2018 02 01  2020 02 01  ./MPCORB.DAT'
      endif else begin
;        print, des[k]
;        help, info, /str
;        stop
      endelse
    endelse


  endfor
  

end