small performance optimisations

replaced equal? by char=? where appropriate
created a binding for (puzzle-square puzz) in solve-puzzle