sml - ファイルを stdin に出力する

Question

ファイル内の文字を SML/NJ の stdin に正確に出力するにはどうすればよいですか? ここに私がこれまでに持っているものがありますが、コンパイラからエラーが返されているため、現在行き詰まっています。

コード：

fun outputFile infile =
let
   val ins = TextIO.openIn infile;
   fun helper copt =
   case copt of
      NONE = TextIO.closeIn ins;
      | SOME(c) = TextIO.output1(stdIn,c); 
        helper(TextIO.input1 ins));
in
   helper ins
end;

どこが間違っているかについて何か考えはありますか？