index.ls

{always, map, chain, to-upper} = require \ramda
{Reader} = require \monet
{format} = require \util

format-greeting = (name) ->
  Reader (greeting) ->
    format greeting, name

greet = (chain format-greeting) . (map to-upper) . Reader.of . always

greet 'Bob' .run 'Hello, %s!'
|> console.log