Following is a demo of the Maze Follow Left Wall program.
?- solve(Path); true. Path = [[2, 1], [2, 2], [3, 2], [3, 3], [4, 3], [5, 3], [5, 2], [5|...], [...|...]|...] [write] Path = [[2, 1], [2, 2], [3, 2], [3, 3], [4, 3], [5, 3], [5, 2], [5, 3], [5, 4], [5, 5], [5, 4], [5, 3], [4, 3], [3, 3], [3, 4], [3, 5], [2, 5], [2, 6]] .