examples/passing/Console.ps · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on 136cd21 help sign in

19 lines 385 B history raw

1extern data IO :: * -> *

3extern ret :: forall a. a -> IO a

5extern (>>=) :: forall a b. IO a -> (a -> IO b) -> IO b

7(*>) = \a -> \b -> a >>= \x -> b

9extern putStrLn :: String -> IO {}

11replicateM_ :: forall a. Number -> IO a -> IO {}

12replicateM_ = \n -> \x -> do

13 var io = ret {}

14 for i <- 0 until n:

15 io = x *> io

16 return io

18main = replicateM_ 10 (putStrLn "Hello World!")