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

Main =
  <File-Open "fopen1.rf"> :: stream,
  $iter # <Print <Getc stream>>;