Following is a demo of the Goal Oriented Mover program, presented as the output when you query a solve.
solve([2,1],[2,2],Path). Path = [[2,1],[2,2],[3,2],[3,3],[3,4],[3,5],[2,5],[2,6]] ?