prolog : extraer elementos de una lista

[libertad1]

Hola todos

dispongo de la siguiente base de dotos:

Código:

/*carretera(Id,Cuidad1,Ciudad2)*/
carretera(1,"V1","V2")
carretera(2,"V2","V3")
carretera(3,"V3","V4")
carretera(4,"V1","V3")
carretera(5,"V1","V4")

/*tienpoCarretera(Id,Tiempo)*/
tienpoCarretera(1,40)
tienpoCarretera(2,25)
tienpoCarretera(3,55)
tienpoCarretera(4,60)
tienpoCarretera(5,110)

tengo un predicado que recibe en argumentos 2 ciudades y envia una lista que contiene las ciudades del trayecto por ejemplo si tengo ke ir de V1 a V3 paando por V2 la lista sera [Vd|L] = [V1| V2, V3]

Este predicado esta seguido del predicado TiempoCamino que calcula el tiempo recorrido en un camino y que recibe como argumento la lista devuelta por el predicado anterior

Código:

TiempoCamino([Vd|L]):-

carretea(Id,Vd,Va),
findall(Tiempo,tiempoCarretera(Id,Tiempo)L).

En este código antes de llamar al predicado carretera(Id, VD, Va), primero debe extraer las ciudades de la lista [VD | L] para que en primero se afecta V1 a Vd y V2Va y después V2 a Vd y V3 a Va

Como hago par extraer las ciudades de la lista ?

De antemano gracias