brainfuck-main ( -- )

Vocabulary

brainfuck

Inputs

None

Outputs

None

Definition

USING: brainfuck.private command-line io io.encodings.binary
io.files namespaces sequences ;

IN: brainfuck

: brainfuck-main ( -- )
    command-line get
    [ read-contents (run-brainfuck) ]
    [ [ binary file-contents (run-brainfuck) ] each ] if-empty ;