combine :: Item -> Item -> Item
combine x y = Item
  { itemName   = itemName   x ++ " and " ++ itemName y
  , itemCost   = itemCost   x + itemCost   y
  , itemDamage = itemDamage x + itemDamage y
  , itemArmor  = itemArmor  x + itemArmor  y
  }
combine :: Item -> Item -> Item
combine x y = Item
  { itemName   = itemName   x ++ " and " ++ itemName y
  , itemCost   = itemCost   x + itemCost   y
  , itemDamage = itemDamage x + itemDamage y
  , itemArmor  = itemArmor  x + itemArmor  y
  }
combine x y = Item
  { itemName   = itemName   x ++ " and " ++ itemName y
  , itemCost   = itemCost   x + itemCost   y
  , itemDamage = itemDamage x + itemDamage y
  , itemArmor  = itemArmor  x + itemArmor  y
  }