module Problem69 where

import Data.Array.Unboxed
import Data.Function
import Data.List
import EulerTotient

main :: IO ()
main =
    print
        . fst
        . maximumBy (compare `on` uncurry ((/) `on` fromIntegral))
        . assocs
        $ getEulerTotientArrayUpto 1000000
