: input-loop ( -- )
    100 read-partial dup
    [ latin1 decode write flush input-loop ] [ drop ] if ;