maybe = ->
	fns = []
	monad = (input) -> fns.reduce ((v, fn) -> fn v), input
	Object.assign monad, with: (fn) ->
		fns.push (v) -> if v? then fn v else null
		monad