Checkpoint

src/prolog/components/terms/Structure.kt

@@ -0,0 +1,17 @@
+package prolog.components.terms
+
+import prolog.components.Functor
+import prolog.components.Goal
+
+open class Structure(val name: Atom, val arguments: List<Argument>): Head(), Term, Goal {
+    override val functor: Functor = Functor(name, arguments.size)
+
+    override fun toString(): String {
+        return when {
+            arguments.isEmpty() -> name.name
+            else -> "${name.name}(${arguments.joinToString(", ")})"
+        }
+    }
+}
+
+typealias CompoundTerm = Structure