IO Monad in Roy

iomonad1.roy

let ioMonad = {
        return: \x -> (\() -> x)
        bind: \action f -> (\() -> 
                             let value = action ()
                             let action2 = f value
                             action2 ()
                           )
      }

let putStrLn line = (\() -> console.log line)

let main = do ioMonad
	text <- (\() -> "hello")
	putStrLn text
    
main ()