-- yukicoder My Practice
-- author: Leonardone @ NEETSDKASU

main = interact $ filter (`elem` "14") . concat . concat . concat . concat . map (map (drop 2) . filter ((== 0) . foldl1 (-) . map (read . head) . take 2) . zipWith ($) (map ((. replicate 3) . zipWith ($) . (: [return . (!!1), id]) . (return .)) [maximum, minimum]) . replicate 2) . zipWith ($) (map ((words .) . (. span (/= '?')) . uncurry . (. (++)) . flip (.) . (. tail) . (:)) "14") . replicate 2