pl learning code (DrRacket & CLIPS)