$use StdIO;
$use "../../library/Stream/Stream";

Main =
  <File-Open "get_line1.rf"> :: stream,
  $iter # \{ <Get-Line stream> :: e.line, <Print e.line>, e.line : e '\n'; };