use warnings; use strict; use Term::ReadLine; use Term::ReadKey; use Pod::Usage 1.12; use aliased 'AI::Prolog';