1. r @$t0=0;
  2.  
  3. $$ Loop to get all foo's
  4. .foreach (CurrentFoo {!dumpheap -type George.George2.Foo -short}){
  5. $$ Increment # of Foo's
  6. r @$t0 = @$t0+1
  7.  
  8. .printf "Length:t%dn", poi(${CurrentFoo}+0xc);
  9. }
  10. .printf "Number of Foo's: %dnnnnnnnnn", @$t0;