Randomized algorithms are only better if the current one is worse than random
lesswrong.com2 pointsby hopp_check0 comments
let x = Just 3 in
do
value <- x
guard (value > 1)
return (value * 4)