sub new {
    return bless {}, shift;
}
sub add {
    shift; # throw away object/class; not needed
    my ($x, $y) = @_;
    return $x + $y;
}