Just a scratchpad for solving puzzle in Prolog for fun