gistfile1.txt

ConstructorInfo twriter_open = typeof(StreamWriter).GetConstructor(new Type[1] { Tokens.String });
thandlers["twriter_open"] = delegate(CpsOp[] z) {
    return CpsOp.Widen(typeof(TextWriter),
        CpsOp.ConstructorCall(twriter_open, z)); };

multi sub open($filename, :$w) is unsafe {
    Q:CgOp { (box TextWriter (twriter_open (obj_getstr {$filename}))) }
}