Add a auxiliary function `free-count' for viewing the work of GC
Reorder the source code

Maybe I make a bug in GC