import Data.List ( group, sort, transpose )
import GHC.Base (join)
import Control.Arrow ( Arrow((&&&)) )
import Data.Traversable (for)
import Control
.Monad (replicateM
, forM
_) import Data
.Char ( digitToInt
) main = do
forM
_ (f2
$ (map.map) digitToInt matr
) $ \
(x
, [a
, b
]) ->
aW1wb3J0IERhdGEuTGlzdCAoIGdyb3VwLCBzb3J0LCB0cmFuc3Bvc2UgKQppbXBvcnQgR0hDLkJhc2UgKGpvaW4pCmltcG9ydCBDb250cm9sLkFycm93ICggQXJyb3coKCYmJikpICkKaW1wb3J0IERhdGEuVHJhdmVyc2FibGUgKGZvcikKaW1wb3J0IENvbnRyb2wuTW9uYWQgKHJlcGxpY2F0ZU0sIGZvck1fKQppbXBvcnQgRGF0YS5DaGFyICggZGlnaXRUb0ludCApCmYgYT0gbWFwICQgam9pbi5tYXAgKFx4LT5bbGVuZ3RoIHg6aGVhZCB4XSA8PiByZXBsaWNhdGUgKGxlbmd0aCB4IC0gMSkgWzBdKS5ncm91cC5hCmYyIHg9IG1hcCAobGVuZ3RoICYmJiBoZWFkKS5ncm91cC5zb3J0Lm1hcCAocmV2ZXJzZS5zb3J0LmluaXQpLmZpbHRlciAoKC89MCkubGFzdCkuam9pbi5mIGlkICQgdHJhbnNwb3NlICQgZiAobWFwICg6W10pKSB4CmZmIG4gPSByZXBsaWNhdGVNIG4gZ2V0TGluZQptYWluID0gZG8KICAgIHggPC0gZ2V0TGluZQogICAgbWF0ciA8LSBmZiAocmVhZCAkIHRha2VXaGlsZSAoLz0nICcpIHggKQogICAgZm9yTV8gKGYyICQgKG1hcC5tYXApIGRpZ2l0VG9JbnQgbWF0cikgJCBcKHgsIFthLCBiXSkgLT4KICAgICAgcHV0U3RyTG4gJCBzaG93IGEgKysgIiAiICsrIHNob3cgYiArKyAiICIgKysgc2hvdyB4