package RandWritingImplement;

use parent -norequire, 'RandThing';


sub new {
    my ($class) = @_;
    my @values = qw(pencil pen marker crayon chalk);

    return $class->SUPER::new (@values);
}

package RandWritingSurface;

use parent -norequire, 'RandThing';


sub new {
    my ($class) = @_;
    my @values = qw(paper parchment slate hide stone);

    return $class->SUPER::new (@values);
}