feat: Write

src/prolog/builtins/io.kt

@@ -0,0 +1,19 @@
+package prolog.builtins
+
+import prolog.Answers
+import prolog.Substitutions
+import prolog.ast.logic.Satisfiable
+import prolog.ast.terms.Atom
+import prolog.ast.terms.Operator
+import prolog.ast.terms.Term
+import prolog.logic.applySubstitution
+
+class Write(private val term: Term) : Operator(Atom("write"), null, term), Satisfiable {
+    override fun satisfy(subs: Substitutions): Answers {
+        val t = applySubstitution(term, subs)
+
+        println(t.toString())
+
+        return sequenceOf(Result.success(emptyMap()))
+    }
+}