sub Call {
    my $self = shift;
    my $method = shift;
    my $it = $self->OStream->$method($_[0]);
        $self->Trace(_CallerStr($it));
    return $it;
};