import Data.Tuple import Data.Array as A main = interact $ show . solve . map read . tail . words solve = snd . minimum . map swap . A.assocs . A.accumArray (-) 0 (1,5) . map swap . zip (repeat 1)