$use StdIO;

$channel C;

Main =  {
        <Read! &C> $iter <Read! &C>::e.term,
        <Print e.term>, <Print ' '>
        $fail;;
        },
        <PrintLN>;