$pg->add_fact( owns => qw/ Ovid socks / );
  $pg->add_fact( gives => qw/ grep grief Ovid / );