use overload '*' => sub {
    my $div = int(${$_[0]} / ${$_[1]});
    my $mod = ${$_[0]} % ${$_[1]};
    return ($div, $mod);
};