parseProblem (an:ns:ss) = 
  let [a, n] = map read . words $ an
      nums   = map read . words $ ns
  in  (a, nums) : parseProblem ss
parseProblem (an:ns:ss) = 
  let [a, n] = map read . words $ an
      nums   = map read . words $ ns
  in  (a, nums) : parseProblem ss
parseProblem (an:ns:ss) = 
  let [a, n] = map read . words $ an
      nums   = map read . words $ ns
  in  (a, nums) : parseProblem ss