diff --git a/src/kiss_flixel/SpriteTools.hx b/src/kiss_flixel/SpriteTools.hx
index 9097603..2e0995a 100644
--- a/src/kiss_flixel/SpriteTools.hx
+++ b/src/kiss_flixel/SpriteTools.hx
@@ -3,7 +3,10 @@ package kiss_flixel;
 import kiss.Prelude;
 import kiss.List;
 import flixel.FlxSprite;
+import flixel.FlxG;
+import flixel.FlxBasic;
 import flixel.util.FlxColor;
+import flixel.group.FlxGroup;
 import flixel.text.FlxText;
 import flixel.math.FlxPoint;
 import flash.display.PNGEncoderOptions;
diff --git a/src/kiss_flixel/SpriteTools.kiss b/src/kiss_flixel/SpriteTools.kiss
index 7b1737a..c517119 100644
--- a/src/kiss_flixel/SpriteTools.kiss
+++ b/src/kiss_flixel/SpriteTools.kiss
@@ -70,4 +70,23 @@
         (set flxText.color textColor)
         (plate.makeGraphic (+ (* 2 margin) textWidth) (+ (* 2 margin) textHeight) bgColor true)
         (plate.stamp flxText margin margin)
-        plate))
\ No newline at end of file
+        plate))
+
+(var &mut _idx 0)
+(function :Void logSprites [&opt :FlxGroup group :String tab]
+    (unless group
+        (print "Logging Sprites")
+        (print "###############")
+        (set _idx 0)
+        (set group FlxG.state)
+        (set tab ""))
+    (group.forEach
+        ->:Void obj 
+            (typeCase [obj]
+                ([:FlxSprite sprite]
+                    (print "${tab}${_idx++}. ${sprite}"))
+                ([:FlxTypedGroup<FlxBasic> innerGroup]
+                    (logSprites innerGroup "${tab}|   "))
+                (otherwise
+                    (print "${tab}${_idx++}. Unknown type"))))
+    (print "${tab}---------------"))
\ No newline at end of file