1 files changed, 8 insertions, 0 deletions
diff --git a/src/init.scm b/src/init.scm
index a7eafc1..710204e 100644
--- a/src/init.scm
+++ b/src/init.scm
@@ -69,3 +69,11 @@
     (list)))
 
 (show-state home)
+
+(define att
+  (lambda (fix lvl)
+    (let ([st
+	    (lambda ()
+	      (list
+		(at fix lvl)))])
+      (show-state st))))