character*5     nlist     ,dict
      common /allotn/ nlist(400),dict(200)