Trace frames on;
Include "strings.h";
Include "heapdump.h";

Trace frames on;

[ Main:
  DSTR* s1,
  DSTR* s2;
  
#ifdef TARGET_GLULX;
  @setiosys 2 0; ! select Glk I/O system

  ! Open a text-buffer window, and select it as the current output stream.
  glk($002F, glk($0023, 0, 0, 0, 3, 0));
#endif;

  s1 = NewDSTR("Hello ");
  PrintDSTR(s1);
  s2 = NewDSTR("world!");
  PrintDSTR(s2);
  new_line;
  
  s1 = StrCat(s1, s2);
  PrintDSTR(s1);
  new_line;
  
  PrintDSTR(SubStr(s1, 3, 6));
  new_line;
  
  DumpHeap();
];