purescript-0.9.1: examples/passing/iota.purs

module Main where

import Control.Monad.Eff.Console (log)

s = \x -> \y -> \z -> x z (y z)

k = \x -> \y -> x

iota = \x -> x s k

main = log "Done"