open Fncurses.Core

let helloworld () =
    ncurses {
        do! "hello, world".ToCharArray() 
            |> NcursesArray.iter (fun ch ->
                ncurses { 
                    do! addch ch
                    do! refresh ()
                    do! napms 100
                })
    }

let run f =
    ncurses {
        let! win = initscr ()
        do! f ()
        let! ch = wgetch win
        return! endwin ()
    }

run helloworld