transf.oz

   local FillRecord in
	  fun {FillRecord Features Values Rec}
		 case Features
		 of H|T then
			case Values.1
			of Lab|Feat|Val then
			   {FillRecord T Values.2
				{AdjoinAt Rec H
				 {Transform Lab|Feat|Val}}}
			[] Val then
			   {FillRecord T Values.2 {AdjoinAt Rec H Val}}
			end
		 [] nil then Rec
		 end
	  end
	  {FillRecord L.2.1 L.2.2.1 {Record.make L.1 nil}}
   end