repositories
/
clean-tests.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
42bd6016ce11b294f998cdbd88e524c96d241c99
[clean-tests.git]
/
test.icl
1
implementation module test
2
3
import StdEnv
4
5
foreign export fac
6
7
fac :: !Int -> Int
8
fac 0 = 1
9
fac n = n * fac (n-1)
10
11
cMain :: !*World -> *(!Int, !*World)
12
cMain _ = code {
13
ccall cmain ":I:A"
14
}
15
16
Start w = cMain w