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