Prolog - Ejercicio para la facultad

Hola a todos.
Mi problema es el sig:

tengo una lista de este tipo:

[[nomb1, 2],[nomb2, 7],[nomb3, 21],[nomb4, 15],[nomb5, 12]]

necesito crear un predicado que tome esta lista de pares y me devuelva el NOMBRE del par con el NUMERO mas alto.

Gracias por su tiempo.

masAlto([[X|Xs],R):-acumulado(X,Xs,R).

acumulado([N,X],[],N).
acumulado([N,X],[[Y,N1]|Xs],R):-N1>N,acumulado([Y,N1],Xs,R).
acumulado([N,X],[[Y,N1]|Xs],R):-N1<N,acumulado([N,X],Xs,R).