[
input-stream [ utf8 <decoder> ] change
output-stream [ utf8 <encoder> ] change
- input-stream get stream-contents split-lines reverse [ print ] each f
+ input-stream get stream-lines reverse [ print ] each f
]
"grep ."
} run-pipeline
'[
dup length 3639 >
[ 3639 over last-grapheme-from cut-slice ] [ f ] if
- swap "" like ?split-lines @ dup
+ swap "" like split-lines @ dup
] loop drop ; inline
M: pane-stream stream-write
: brainfuck-main ( -- )
command-line get [
- contents (run-brainfuck)
+ read-contents (run-brainfuck)
] [
[ binary file-contents (run-brainfuck) ] each
] if-empty ;