$use StdIO;

$channel C;

Main =  <Open-File &C "test4" "R">,
        {
        <Read! &C> $iter <Read! &C>::e.term,
        <Print e.term>, <Print ' '>
        $fail;;
        },
        <PrintLN>;