sub pass{
    my ( $self, $problem1 )= @_;
    print "$problem1\n";
}