main = print . solve $ 1000000
    where solve xs = foldl pmax (1,1) [2..xs-1]
main = print . solve $ 1000000
    where solve xs = foldl pmax (1,1) [2..xs-1]
main = print . solve $ 1000000
    where solve xs = foldl pmax (1,1) [2..xs-1]