#!/usr/bin/perl

while (<>) {
  if (/\?$/) {
    print "I don't know.\n";
  } elsif (/^describe\s+(.*)/i) {
    my $s = $1;
    print grep /$s/, @statements;
  } else {
    push @statements, $_;
    print "OK.\n";
  }
}
