A Common Lisp solution to “Einstein's Riddle”

Question

I want to solve the Einstein problem with lisp. I want to print the result on the screen. How can I call the solve method?

Problem Description: "The Einstein\'s