sub mul {
    my $mulsub = sub { bless \( $$_[0] + $$_[1] ) };
    return &compute($mulsub,@_);
}