ref.cd 142 Bytes
Newer Older
1
let x = ref Int 0;;
2
3
4
5
6
7
8

let fun loop ([] : []) :  [] =
  print "Hello world !\n";
  x := !x + 1;
  if !x << 10 then loop [] else [];;

loop [];;