A text adventure game in Prolog