Deepak Chopra implementation in SWI-Prolog dialect