sub Phrase {
  my $self=shift;
  $self->{phrase}=shift if @_;
  return $self->{phrase}
}