define printqstring
       set $i=0
       set $out="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
       set $cur=0
       set $s = $arg0
       while $i < $s.d->len
         set $out[$cur++] = (char)($s.d->unicode[$i++].cl & 0xff)
         if $cur >= 40
           p $out
           set $cur = 0
           set $out="\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
         end
       end
       if $cur < 40
         p $out
       end
end