gearOptions :: [Item]
gearOptions =
  do weapon <- weapons
     armor  <- emptyItem "unarmored" : armors
     ring   <- chooseUpTo 2 rings
     return (foldl1 combine (weapon : armor : ring))
gearOptions :: [Item]
gearOptions =
  do weapon <- weapons
     armor  <- emptyItem "unarmored" : armors
     ring   <- chooseUpTo 2 rings
     return (foldl1 combine (weapon : armor : ring))
gearOptions =
  do weapon <- weapons
     armor  <- emptyItem "unarmored" : armors
     ring   <- chooseUpTo 2 rings
     return (foldl1 combine (weapon : armor : ring))