« first day (1322 days earlier)      last day (544 days later) » 

06:51
    Map.fromList $
    concatMap (\(y, line) -> map (\(x, f) -> ((x, y), f)) line) $
    zip [0 ..] $ map (zip [0 ..]) (lines f)
Does anybody have a nicer way to write this?

« first day (1322 days earlier)      last day (544 days later) »