local
fun  min((kd1,(nazwa1,cena1))::(kd2,(nazwa2,cena2))::rej) = 
	if(cena1<cena2) 
	    then min((kd1,(nazwa1,cena1))::rej) 
		else min((kd2,(nazwa2,cena2))::rej)
| min((kd,(nazwa,cena))::rej) = (kd,(nazwa,cena))

fun usun ((kd1,(nazwa1,cena1)),[]) = []
 | usun((kd1,(nazwa1,cena1)),(kd2,(nazwa2,cena2))::rej) = if (kd2=kd1) then usun((kd1,(nazwa1,cena1)),rej)
												else (kd2,(nazwa2,cena2))::usun((kd1,(nazwa1,cena1)),rej);
in
fun naj(n,[]) = []
| naj(0,(kd2,(nazwa2,cena2))::rej) = []
| naj(n,(kd2,(nazwa2,cena2))::rej) = min((kd2,(nazwa2,cena2))::rej)::naj(n-1,usun(min((kd2,(nazwa2,cena2))::rej),(kd2,(nazwa2,cena2))::rej))
end;