road(wellington, pnorth, 143).
road(pnorth, wanganui, 74).
road(pnorth, napier, 178).
road(pnorth, taupo, 259).
road(wanganui, taupo, 231).
road(wanganui, nplymouth, 163).
road(wanganui, napier, 252).
road(napier, taupo, 147).
road(napier, gisborne, 215).
road(nplymouth, hamilton, 242).
road(nplymouth, taupo, 289).
road(taupo, hamilton, 153).
road(taupo, rotorua, 82).
road(taupo, gisborne, 334).
road(gisborne, rotorua, 291).
road(rotorua, hamilton, 109).
road(hamilton, auckland, 126).

route(Start, Finish, [Town|TownsToVisit]) :-
    Town = Start.
    NextTown = getNextTown([Town|TownsToVisit]),
    while NextTown != Finish,
        getNextTown([Town|TownsToVisit])


getNextTown([Town|TownsToVisit], NextTown) :-
    road(Town, NextTown, _),
    write(NextTown).