Posted to tcl by Stu at Fri Jun 09 03:07:05 GMT 2023view pretty

One line each:

      FileReader in.txt
    | FilterDoer ` tocalc {string toupper $value}
    | FilterDoer ` tocalc {regsub -all I $value A}
    | FileWriter out.txt ` configure -buffering full ` flush


Or more structured-like:

      FileReader in.txt
    | FilterDoer
        ` tocalc {string toupper $value}
    | FilterDoer
        ` tocalc {regsub -all I $value A}
    | FileWriter out.txt
        ` configure -buffering full
        ` flush