[10 8 8 98 32 2 4 5 10 ] dup length dict begin  aload let* currentdict {pop} map end