define pr
  call $arg0->print(&Global_string)
  p Global_string.c_ptr()
  call Global_string.free()
end