\n"; print "\n"; showrdf($title, $n); }", $n->{story}, "
\n"; print "
\n"; print "\n"; print "
\n"; print " you have: "; foreach my $t (keys(%things)) { if (exists $thingtable{$t}) { print $thingtable{$t}, "
\n"; } else { print "(what's $t?)
\n"; } } print "\n"; print " "; my $h = $n->{links}; foreach (keys %$h) { my $link = $h->{$_}; my $thingies = encode_items(keys %things); $link =~ s/ /\+/g; print "$_
"; } print "start over
\n"; print "
\n"; print "