test.toc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23


puti @= fn(x: int) {
	 #C("printf(\"%ld\\n\", (long)x);
");
};

putf @= fn(x: float) {
	 #C("printf(\"%f\\n\", (double)x);
");
};

lsh @= fn(x: int, bits: int) int {
	 each 1..bits {
	 	  x *= 2;
	 }
	 x
};

main @= fn() {
	 puti(lsh(2, 15));
	 X @= lsh(2, 15);
	 puti(X);
};