Integer.faak
    |res c|
    res = 1;
    c = self;
	while (c > 1)
       res = res * c;
       c = c - 1
    end;
    ^res
!

Integer.test(n m)
	|meta_class,new, slots, class, classz instanz i j dic|
    n.write();
    new.write();
    i=0;
    while (i<2)
	    "Global Rope is       ".simple_print();Rope.write();
	    "Global True is       ".simple_print();True.write();
	    "Global Slotted is    ".simple_print();Slotted.write();
	    "Global Collection is ".simple_print();Collection.write();
	    i = i + 1
    end;
    
    instanz = Rope.new_for(30);
    instanz.add(10);
    MetaMetaClass.print_hierarchy();
    True.print_hierarchy();
    "--------------------------".write();
    dic = HashedDictionary.new_for(10);
    #dic = Dictionary.new_for(10);
    dic.set(nil,true);
    dic.set(1,2);
    dic.set(true,false);
    dic.write();
    i=0;
    while (i<60)
	    dic.set(i,i+2);
	    i = i + 1
    end;
    dic.write();
    i=0;
    while (i<100)
	    dic.set(i,i+20);
	    i = i + 1
    end;
    dic.write();
    j=0;
    while (j<1)
    	    i=0;
	    while (i<100)
		    dic.at(i);
	    	    i = i + 1
	    end;
	    j = j + 1
    end;
    "Hit:  ".simple_print();Hit.write();
    "Miss: ".simple_print();Miss.write();
    i=0;
    while (i<5)
	    i.print();" --> ".simple_print();
	    i.sys_hash_id().write();
	    i = i + 1
    end;
    "200 ist  ".simple_print();dic.at(200).write();
    10.perform(:fac.as_symbol(),nil).write();
    10.perform("+".as_symbol(),FixedVector.new_with(100)).write();
    "2+:W = ".simple_print(); (2.secure_plus(:W)).write();
    "Hallo Olaf".subSeq(5,4).write();
    0
#!
#Integer.test(n m)
#	"Res: ".simple_print();String.new(10).print();
#	self

