rl-22/Program.fs

open RL.Game

[<EntryPoint>]
let main _argv =
    try initGame |> loop; 0
    with ex ->
        let _ = printfn "Fatal error: %s\n%s" ex.Message, ex.StackTrace
        255