mulResources :: ResourceCount -> Int -> ResourceCount
mulResources r i = ResourceCount
  { lumber = i * lumber r
  , wool = i * wool r
  , wheat = i * wheat r
  , brick = i * brick r
  , ore = i * ore r
  }
mulResources :: ResourceCount -> Int -> ResourceCount
mulResources r i = ResourceCount
  { lumber = i * lumber r
  , wool = i * wool r
  , wheat = i * wheat r
  , brick = i * brick r
  , ore = i * ore r
  }
mulResources r i = ResourceCount
  { lumber = i * lumber r
  , wool = i * wool r
  , wheat = i * wheat r
  , brick = i * brick r
  , ore = i * ore r
  }