logger t msg answer = (if verbose t && not answer then trace msg else id) answer
logger t msg answer = (if verbose t && not answer then trace msg else id) answer
logger t msg answer = (if verbose t && not answer then trace msg else id) answer