>>> let failV = failIf ["I'm less than 3"] (<3) >>> let passV = failIf ["I'm greater than 4"] (>4) >>> let testV = failIf ["I'm not divisible by 2"] odd >>> let exV = poke failV passV testV
>>> validateP exV 7 Left (Valid 7)
>>> validateP exV 6 Right ["I'm greater than 4"]
>>> validateP exV 2 Left (Valid 2)
>>> validateP exV 1 Right ["I'm not divisible by 2","I'm less than 3"]