Don't expect to do monadic concatmap with list optimization.