procedure main()
   every write(&collections)
   write("----")
   every collect(1 to 10)
   every write(&collections)
   write(&storage)
   write(&regions)
   write("-----")
   s := repl("x",10000)
   every 1 to 5 do {
     s ||:= s
     every write(&collections)
     }
   write("----")
   write("regions")
   every write(&regions)
   write("storage")
   every write(&storage)
   write("----")
   every 1 to 20 do {
     create foo
     every write(&collections)
     }
   write("----")
   write("regions")
   every write(&regions)
   write("storage")
   every write(&storage)
end