Prolog - simple pathing