ally :: Alliance -> IO Alliance
ally a = 
   putStrLn (concat ["For ", T.unpack $ name a, ":"]) >>
   let b = Set.filter isNonAscii (countries a) in
   putStrLn (show b) >>
   return a { countries = b }
ally :: Alliance -> IO Alliance
ally a = 
   putStrLn (concat ["For ", T.unpack $ name a, ":"]) >>
   let b = Set.filter isNonAscii (countries a) in
   putStrLn (show b) >>
   return a { countries = b }
ally a = 
   putStrLn (concat ["For ", T.unpack $ name a, ":"]) >>
   let b = Set.filter isNonAscii (countries a) in
   putStrLn (show b) >>
   return a { countries = b }