<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<?php
define('RADIX', 10);
define('LENGTH', 4);
function izero() {
    return str_pad("", LENGTH, "0");
}
function ione() {
    return str_pad("", LENGTH - 1, "0") . "1";
}
function ishiftl($v, $n) {
    return str_pad(substr($v, $n), LENGTH, "0");
}
function ishiftr($v, $n) {
    return str_pad("", $n, "0") . substr($v, 0, LENGTH - $n);
}
function iadd($a, $b) {
    $res = "";
    $mente = 0;
    for($i = LENGTH - 1; $i >= 0; $i--) {
        $tmp = intval($a[$i]) + intval($b[$i]) + $mente;
        $res = strval($tmp % RADIX) . $res;
        $mente = $tmp / RADIX;
    }
    return $res;
}
function isub($a, $b) {
    $res = "";
    $borrow = 0;
    for($i = LENGTH - 1; $i >= 0; $i--) {
        $tmp = intval($a[$i]) - intval($b[$i]) - $borrow;
        if($tmp < 0) {
            $tmp += RADIX;
            $borrow = 1;
        } else {
            $borrow = 0;
        }
        $res = strval($tmp) . $res;
    }
    return $res;
}
function iscale($v, $n) {
    $res = "";
    $mente = 0;
    for($i = LENGTH - 1; $i >= 0; $i--) {
        $tmp = $n * intval($v[$i]) + $mente;
        $res = strval($tmp % RADIX) . $res;
        $mente = $tmp / RADIX;
    }
    return $res;
}
function imul($a, $b) {
    $res = izero();
    for($i = LENGTH - 1; $i >= 0; $i--) {
        $res = iadd($res, ishiftl(iscale($a, intval($b[$i])), LENGTH - $i - 1));
    }
    return $res;
}
function ieq($a, $b) {
    return $a == $b;
}
function ine($a, $b) {
    return !ieq($a, $b);
}
function ile($a, $b) {
    for($i = 0; $i < LENGTH; $i++) {
        if(intval($a[$i]) < intval($b[$i])) {
            return TRUE;
        }
        if(intval($a[$i]) > intval($b[$i])) {
            return FALSE;
        }
    }
    return TRUE;
}
function ilt($a, $b) {
    for($i = 0; $i < LENGTH; $i++) {
        if(intval($a[$i]) < intval($b[$i])) {
            return TRUE;
        }
        if(intval($a[$i]) > intval($b[$i])) {
            return FALSE;
        }
    }
    return FALSE;
}
function igt($a, $b) {
    return !ile($a, $b);
}
function ige($a, $b) {
    return !ilt($a, $b);
}
function idiv($a, $b) {
    if(ilt($a, $b)) {
        return izero();
    } else {
        $tmp = ione();
        while(ile(imul($b, ishiftl($tmp, 1)), $a)) $tmp = ishiftl($tmp, 1);
        return iadd($tmp, idiv(isub($a, imul($tmp, $b)), $b));
    }
}
echo iadd("0077", "0129") . "\n";
echo isub("0129", "0077") . "\n";
echo imul("0011", "0013") . "\n";
echo idiv("0177", "0005") . "\n";
?>