{-# ANN module "HLint: ignore Reduce duplication" #-} dup = do a; a; a; a; a; a