gistfile1.txt

module Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)
import Control.Monad.Eff.Random (RANDOM, random)

main :: forall e. Eff (random :: RANDOM, console :: CONSOLE | e) Unit
main =
  _main r l


_main :: forall e. Eff (random :: RANDOM | e) Number -> (String -> Eff (console :: CONSOLE | e) Unit) -> Eff (random :: RANDOM, console :: CONSOLE | e) Unit
_main r l = do
  x <- r
  l $ show x


r :: forall e. Eff (random :: RANDOM | e) Number
r = random


l :: forall e. String -> Eff (console :: CONSOLE | e) Unit
l = log