package Const;
use strict;

sub new
{
    my $pkg  = shift;
    my $self = [shift];
    
    bless $self,$pkg;

    return $self;
} 

sub in
{
    my $self    = shift;
    $self->[0]  = shift;
}

sub out
{
    my $self    = shift;
    return($self->[0]);
}

sub pulse {}

'end Const';