package Woef;

@ISA = ('Waf');

sub new
{
    my $pkg  = shift;
    my $self = new Waf(shift);      

    $self->{'in'} = shift;    

    bless $self,$pkg;

    return $self;
} 

sub pulse
{
  my $self=shift;
  $self->in($self->{'in'}->out());      
}
  
'end Woef';