add break to Control.Monad.Loop as well