Source code in the draco programming language

\util.g

proc nonrec stripchars(*char str, chars, outbuf) *char:
    channel input text ch_in;
    channel output text ch_out;
    [2]char cur = ('\e', '\e');
    
    open(ch_in, str);
    open(ch_out, outbuf);
    while read(ch_in; cur[0]) do
        if CharsIndex(chars, &cur[0]) = -1 then
            write(ch_out; cur[0])
        fi
    od;
    close(ch_in);
    close(ch_out);
    outbuf
corp

proc nonrec main() void:
    [128]char buf;
    writeln(
        stripchars("She was a soul stripper. She took my heart!", 
        "aei", &buf[0]))
corp