#! /usr/bin/perl
#
# Reference implementation for symbol table testing.

%a = ();
while (<>) {
  chomp();
  @F = split();
  if ($F[0] eq "set") {
    $a{$F[1]} = $F[2];
  } elsif ($F[0] eq "get") {
    if (exists($a{$F[1]})) {
      print "$a{$F[1]}\n";
    } else {
      print "*MISSING*\n";
    }
  } elsif ($F[0] eq "del") {
    if (exists($a{$F[1]})) {
      delete($a{$F[1]});
    } else {
      print "*MISSING*\n";
    }
  } elsif ($F[0] eq "count") {
    print int(keys(%a)), "\n";
  } elsif ($F[0] eq "show") {
    if (!%a) {
      print "*EMPTY*\n";
    } else {
      my $s = "";
      foreach $k (sort(keys(%a))) {
	print "$s$k:$a{$k}";
	$s = " ";
      }
      print "\n";
    }
  } else {
    print "*BAD*\n";
  }
}