puny attempts at fixing prolog code
forgot to save text i wrote