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