Posted to tcl by dram at Sun Oct 22 11:55:06 GMT 2017view pretty

#include <tcl.h>

int main()
{
        Tcl_Interp *tcl = Tcl_CreateInterp();

        Tcl_Channel channel = Tcl_GetStdChannel(TCL_STDOUT);

        Tcl_WriteChars(channel, "hello\n", -1);
        Tcl_WriteChars(channel, "`}\n", -1);
        Tcl_WriteRaw(channel, "`}\n", -1);

        Tcl_Close(tcl, channel);

        Tcl_DeleteInterp(tcl);

        return 0;
}


Output:

hello
??
`}