author = 'DeMeo, F'
  author = 'Carry, B'
  root = '/home/bcarry/data/biblio/'

  split = strsplit(author,' ,',/extract, count=N)
  if N eq 1 then dir = root else dir = root+split[0]+'/'

  file_mkdir, dir




  ref = getAuthorRecord(author, /ref)
  plotBiblioYear, ref, dir+'year-ref.png'

  cit=getAuthorCitations( ref, plot=dir, hindex=h )

  plotBiblioYear, ref, dir+'year-cit.png', cumulative=cit


end