data WeaponType = FlySwatter | Broom | TwigSword | AcornCannon
instance Show WeaponType where
show FlySwatter = "ハエ叩き"
show Broom = "ほうき"
show TwigSword = "小枝の刀"
show AcornCannon = "どんぐり大砲"

data ArmorType = CardboardBoxArmor | BubbleWrapArmor | LeafArmor | WoodenArmor
instance Show ArmorType where
show CardboardBoxArmor = "段ボールの鎧"
show BubbleWrapArmor = "プチプチ巻き"
show LeafArmor = "葉っぱの鎧"
show WoodenArmor = "木の鎧"