proc newCString*( gcStr: string ): cstring =
  var size = len( gcStr )

  result = cast[cstring]( alloc( sizeof(char) * ( size + 1 ) ) )
  for i in 0..size:
    result[i] = gcStr[i]

  result[size] = '\0'