( redirect.s: console i/o redirection) decimal file f1 file f2 : namearg 32 word 0 over count + c! 1+ ; : file> f1 0 namearg fopen f1 src ! ; : console> src @ fclose 0 src ! ; : >console dest @ abs fclose 1 dest ! ; : >file f2 1 namearg fopen f2 dest ! ; : >tee f2 1 namearg fopen f2 negate dest ! ; : >printer f2 1 " prn:" drop fopen f2 dest ! ; hide f1 hide f2 hide namearg