diff --git a/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm
new file mode 100755
index 0000000..f607f9e
--- /dev/null
+++ b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/Guile-SDL-Experiment-01.scm
@@ -0,0 +1,27 @@
+#!/usr/bin/guile  -s
+!#
+(use-modules (sdl2)
+             (sdl2 render)
+             (sdl2 surface)
+             (sdl2 video)
+			 (sdl2 image)
+			 (sdl2 events)
+			 (sdl2 input keyboard))
+
+(define (draw ren)
+  (set-renderer-draw-color! ren 255 255 255 255)
+  (let* ((surface (load-image "guile.png"))
+         (texture (surface->texture ren surface)))
+	(do ((event (poll-event) (poll-event)))
+		((eq? '#t (quit-event? event)))
+	  (clear-renderer ren)
+	  (render-copy ren texture)
+	  (present-renderer ren))))
+
+(sdl-init)
+
+(call-with-window (make-window)
+  (lambda (window)
+    (call-with-renderer (make-renderer window) draw)))
+
+(sdl-quit)
diff --git a/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/guile.png b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/guile.png
new file mode 100644
index 0000000..eef44d7
Binary files /dev/null and b/SDL2-Bits-And-Pieces/Guile-SDL-Experiment-01/guile.png differ