(setq mazeList '(A A A B B B C C C))
(print mazeList)
(nsubstitute 'F 'a mazeList)
(nsubstitute 'L 'b mazeList)
(nsubstitute 'R 'c mazeList)
(print mazeList)