dateComponentsFromInt :: Int -- ^ Integer to extract components
                      -> (Int, Int, Int) -- ^ Year, month, day of month
dateComponentsFromInt di = let d = di `mod` 100
                               ym = di `div` 100
                           in let y = ym `div` 100
                                  m = ym `mod` 100
                              in (y, m, d)
dateComponentsFromInt :: Int -- ^ Integer to extract components
                      -> (Int, Int, Int)
dateComponentsFromInt di = let d = di `mod` 100
                               ym = di `div` 100
                           in let y = ym `div` 100
                                  m = ym `mod` 100
                              in (y, m, d)
dateComponentsFromInt di = let d = di `mod` 100
                               ym = di `div` 100
                           in let y = ym `div` 100
                                  m = ym `mod` 100
                              in (y, m, d)