Checkpoint

src/prolog/builtins/io.kt

@@ -18,7 +18,12 @@ import prolog.logic.unifyLazy
  */
 class Write(private val term: Term) : Operator(Atom("write"), null, term), Satisfiable {
     override fun satisfy(subs: Substitutions): Answers {
-        val t = applySubstitution(term, subs)
+        var t = term
+        var temp = applySubstitution(t, subs)
+        while (t != temp) {
+            t = temp
+            temp = applySubstitution(t, subs)
+        }
 
         Terminal().say(t.toString())