Fixed program.fs