/* Renvoie vrai si les 2 paramètres sont des paires, et sont égales, faux sinon. */
equalPair = function(p1,p2){
    var res = false;

    if(equal(p1.pair["fst"],equal(p2.pair["fst"]
        && equal(p1.pair["snd"],equal(p2.pair["snd"])){
        res = true;
    }
          
     return res;
}
            
MLpairClass = function(first,second){
    
    var pair = new Array();
    pair["fst"] = first;
    pair["snd"] = second;
    
    this.pair = pair;
}

MLpairClass.prototype.toString = function () {
    var s = "["+this.pair["fst"]+","+this.pair["snd"]+"]";    
    alert("Taille paire = (2)"+this.pair.length);

    return s;
}

MLpair = function(first,second) {
    return new MLpairClass(first,second);
}



MLfst = function(a_pair){
    return a_pair.pair["fst"];    
}


MLsnd = function(a_pair){
    return a_pair.pair["snd"];    
}
            
var p1 = MLpair(2,"lol");
var p2 = MLpair(5,"oki");
var p3 = MLpair(5,"oki");
            
alert(p1);      

var f = equalPair(p1,p2); 
var v = equalPair(p2,p3);           

alert(f);