$use StdIO;

$channel C;

Main =
  <Open-File &C "test5" R>,
  <PrintLN <Read! &C>>,
  <PrintLN <Read-Line! &C>>;