Prolog - Ordenacion por listas

hola buenas noches quisiera saber si pueden ayudarme es urgente ya me mate la cabeza con mi compañero para hacer una consulta en prolog pero nos hace falta una cuestion.

append( [a,g,s], [b,e,t], Concatenada), list_to_ord_set(Concatenada,Ordenada), last(Ordenada, Resultado).

Concatenada = [a, g, s, b, e, t],
Ordenada = [a, b, e, g, s, t],
Resultado = t.

ahora bien lo que nos hace falta es que en resultado despliegue la concatenacion del primer y ultimo elemento en una lista nueva por pares. osea que deberia quedar
resultado=[a, t]
resultado=[b, s]
resultado=[e, g]

si alguien sabe como de antemano gracias