diff --git a/examples/fs.lisp b/examples/fs.lisp
index 0c624bb..44eac10 100644
--- a/examples/fs.lisp
+++ b/examples/fs.lisp
@@ -4,8 +4,11 @@
   (def files 
     (ls 
       (folder))) 
-  ; print files count 
+  ; pick a random file 
+  (def random-index 
+    (floor 
+      (random 
+        (len files)))) 
+  ; print random file name
   (echo 
-    (concat "Current folder: " 
-      (folder) " contains " 
-      (len files) " files"))))
\ No newline at end of file
+    (get files random-index)))
\ No newline at end of file