purelyFunctional :: IO Boolean purelyFunctional = do value1 <- notPurelyFunctional 5.0 value2 <- notPurelyFunctional 5.0 value1 == value2
... return (value1 == value2)