DouKaku?

open System;;
open System.Text;;
open System.IO;;
open Array;;

let fileIO (ifname:string) (ofname:string) =
    let streamW = new StreamWriter( ofname, false, Encoding.Default ) in
    let streamR = new StreamReader( ifname, Encoding.Default ) in
    let rmCommentLn (wstream:StreamWriter) =
        let rec readf (rstream:StreamReader) =
            let line = rstream.ReadLine() in
            if line = null then ()
            else
                begin
                    if not (line.StartsWith "#")
                    then wstream.WriteLine line
                    else ();
                    readf rstream
                end
        in using streamR readf
    in using streamW rmCommentLn;;

if (length Sys.argv) = 3
then fileIO Sys.argv.(1) Sys.argv.(2)
else ();;