module Main (main) where import System import Control.Monad play :: (Int,Int) -> (Int,Int) play (x,y) | x == y = (x,y) | x < y = (0,x + y) | otherwise = (x + y,0) execute :: [(Int,Int)] -> (Int,Int) execute xs = foldr1 (\(p,q) (r,s) -> (p+…