: STATUS ( obj-addr c-addr u -- obj-addr )
   TYPE ":\n  Value: " TYPE DUP @ .
   "\n  Object size: " TYPE DUP OBJECT-SIZE U. EOL EOL ;

: TEST
   28 ALLOCATE 1234 OVER ! "Allocated 28 bytes" STATUS
   33 RESIZE "Resized to 33 bytes" STATUS
   28 RESIZE "Resized to 28 bytes" STATUS
   256 KB CELL- RESIZE "Resized to 256 KiB - 1 cell" STATUS
   32 RESIZE "Resized to 32 bytes" STATUS
   28 RESIZE "Resized to 28 bytes" STATUS
   4 RESIZE "Resized to 4 bytes" STATUS
   FREE ;

TEST