Following is a demo of the Maze: My Thing program.
?- solve(Path), draw(Path). X S X X X X X P P X O X X X P O O X X X P X O X X P P X O X X E X X X X Path = [[2, 1], [2, 2], [3, 2], [3, 3], [3, 4], [3, 5], [2, 5], [2, 6]].