FUNCTION extractatt, top_uvalue, name
   taille = size(top_uvalue)
   j = -1
   repeat BEGIN
      j = j+1
      if j EQ (size(top_uvalue))[2] then return, -1
   endrep until *top_uvalue[0, j] EQ name
   return, *top_uvalue[1, j]
end