DecVar f NewClo f DecArg x SetVar f # fin entête GetVar f StCall CsteNb 1 SetArg Call SetVar g1 GetVar f StCall CsteNb 0 SetArg Call SetVar g2 GetVar g1 StCall GetVar g1 StCall GetVar g2 StCall GetVar g2 StCall CsteNb 10 SetArg Call SetArg Call SetArg Call SetArg Call Halt # fonction f f: DecVar y DecVar g NewClo g DecArg z SetVar g GetVar x SetVar y GetVar g Return # fonction g g: GetVar y GetVar z AddiNb SetVar y GetVar y Return

charger