diff --git a/TODO b/TODO
index 78ef721c..5ae1abd2 100644
--- a/TODO
+++ b/TODO
@@ -3,6 +3,7 @@
 ** syntax.mes
 ** or psyntax.pp
 ** bugs
+*** c1.mes
 *** closure.mes
 *** using (let () ...) in macro.mes/syntax.mes
 *** <=, => take only 2 arguments
diff --git a/c0.mes b/c0.mes
new file mode 100644
index 00000000..6614dcfb
--- /dev/null
+++ b/c0.mes
@@ -0,0 +1,20 @@
+
+;; guile:
+;; 0
+;; 0
+
+;; mes:
+;; 0
+;; 1
+
+(define b 0)
+(define x (lambda () b))
+
+(display (x))
+(newline)
+(define (c b)
+  (display (x))
+  (newline)
+  (x))
+(c 1)
+""