type list = struct {
  value: int
  next: ^list
}

fn test() {
  var p: ^list

  for i := 0; i < 1000000; i++ {
    n := new(list)
    n.value = i
    n.next = p
    p = n
  }
}

fn main() {
  test()
  printf("Ok")
}