diff --git a/chap1/millet.toml b/chap1/millet.toml
new file mode 100644
index 0000000..579133e
--- /dev/null
+++ b/chap1/millet.toml
@@ -0,0 +1,2 @@
+version = 1
+workspace.root = "sources.mlb"
diff --git a/chap1/single-line-program.sml b/chap1/single-line-program.sml
index 449896e..054138c 100644
--- a/chap1/single-line-program.sml
+++ b/chap1/single-line-program.sml
@@ -63,9 +63,9 @@ and interpExp (e, t) =
               | Times => (n1 * n2, te2)
               | Div => (n1 div n2, te2)
          end
-     | EseqExp (s, e) =>
+     | EseqExp (s, ie) =>
          let val ts = interpStm(s, t)
-         in interpExp(e, ts)
+         in interpExp(ie, ts)
          end
 and printExpList (t, out, el) =
   case el of
diff --git a/chap1/sources.mlb b/chap1/sources.mlb
new file mode 100644
index 0000000..bb73460
--- /dev/null
+++ b/chap1/sources.mlb
@@ -0,0 +1 @@
+single-line-program.sml