#...
    '++' =>  sub 
    { 
        $num = ${$_[0]} + 1;
        return bless \$num, Number::Formatted;
    },
    '--' =>  sub 
    { 
        $num = ${$_[0]} - 1;
        return bless \$num, Number::Formatted;
    },