IO Monad in Roy (why fails?)

iomonad2.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 <- return "hello"
	putStrLn text
    
main ()