test2.li

///////////////////////////////////////////////////////////////////////////////
//                          Isaac Operating System                           //
// 									     //
//   This program is free software; you can redistribute it and/or modify    //
//   it under the terms of the GNU General Public License as published by    //
//   the Free Software Foundation; version 3 of the License.  		     //
// 									     //
//   This program is distributed in the hope that it will be useful, 	     //
//   but WITHOUT ANY WARRANTY; without even the implied warranty of 	     //
//   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 	     //
//   GNU General Public License for more details. 			     //
// 									     //
// 			    http://www.lisaac.org			     //
///////////////////////////////////////////////////////////////////////////////

Section Header

  + name    := TEST2;
      
  
  
Section Inherit  
  
  - parent_object:OBJECT := OBJECT;  
  
  
Section Public

  - sum : { (INTEGER,INTEGER);INTEGER} :=   sum := { (i,acc:INTEGER); 
               + return : INTEGER;
               (i<0).if { return := acc;} else { return := sum.value (i-1,acc+1)};
               return
             };

  - main <-
  (  
    
    
             sum.value (5000,0).print;
    );