stackTagBag :: Stack -> TagBag
stackTagBag = plusTagBags . map (taggedTagBag 3)
stackTagBag :: Stack -> TagBag
stackTagBag = plusTagBags . map (taggedTagBag 3)
stackTagBag = plusTagBags . map (taggedTagBag 3)