1 files changed, 16 insertions, 0 deletions
diff --git a/mkworld/test.icl b/mkworld/test.icl
new file mode 100644
index 0000000..0e2a87c
--- /dev/null
+++ b/mkworld/test.icl
@@ -0,0 +1,16 @@
+module test
+
+import StdEnv
+
+Start 
+# w = mkWorld 42
+# (io, w) = stdio w
+# io = fwrites "Hello world!\n" io
+# (ok, w) = fclose io w
+= ok
+
+mkWorld :: Int -> *World
+mkWorld x = code {
+    ccall mkworld "I:p"
+}
+