+
+( ==== Input/Output ==== )
+
+:noname ( args -- finalResult )
+ 2dup 1 ensure-arg-count
+ car string-type ensure-arg-type
+
+ drop pair-type
+ pad charlist>cstr
+ pad swap load
+; make-primitive load
+
+' read make-primitive read
+
+:noname ( args -- )
+ 2dup 1 ensure-arg-count
+
+ car print cr
+
+ none
+; make-primitive write
+
+( ==== Evaluation ==== )
+
+:noname
+ \ Dummy apply procedure
+ \ Should never actually run!
+ ." Error: Dummy apply procedure executed!" cr
+; make-primitive apply