Nimrod's destructor pragma

import strutils

type
  PFoo = pointer

proc free(t: var PFoo) {.destructor.} =
  if t == nil: return
  echo "free"
  dealloc(t)
  t = nil

proc newFoo(size: int): PFoo =
  echo "new"
  return alloc(size)

template memEcho() =
  echo format("O: $1; F: $2; T: $3", getOccupiedMem(), getFreeMem(), getTotalMem())

proc test() =
  var foo = newFoo(1000000)
  free(foo)

memEcho()
while true:
  test()
  memEcho()