decision :: ([slides], hope, naivety, GSachsClient) -> greaterFool

naivety = foldl hope slides

map naivety GSachsClient

ah who am I kidding, I could never get the hang of monads anyway.