Naam(KLNr)
  Quit $$Get(KLNr,102)
  
Get(KLNr,BIndex)
	New Node,Piece
	Set Node=BIndex\100-1		  
	Set Piece=BIndex#100
	Quit $P(^KKL(^KK1(KLNr),Node),"\",Piece)