Inital commit

1 files changed, 17 insertions, 0 deletions

diff --git a/cleanc.icl b/cleanc.icl
new file mode 100644
index 0000000..b3f037c
--- /dev/null
+++ b/cleanc.icl
@@ -0,0 +1,17 @@
+implementation module cleanc
+
+puti :: !Int !*State -> *State
+puti i s = code inline {
+    ccall puti "I:V:I"
+}
+
+call :: !String !*State -> *State
+call f s = code inline {
+    ccall call "S:V:I"
+}
+
+geti :: !*State -> (!Int, !*State)
+geti s = code inline {
+    ccall geti ":I:I"
+}
+