mkworld/test.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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"
}