main = print soln
    where
        solve xs = foldl pmax (1,1) xs
        s1 = solve [2..500000]
        s2 = solve [500001..999999]
        soln = s2 `par` (s1 `pseq` max s1 s2)
main = print soln
    where
        solve xs = foldl pmax (1,1) xs
        s1 = solve [2..500000]
        s2 = solve [500001..999999]
        soln = s2 `par` (s1 `pseq` max s1 s2)
main = print soln
    where
        solve xs = foldl pmax (1,1) xs
        s1 = solve [2..500000]
        s2 = solve [500001..999999]
        soln = s2 `par` (s1 `pseq` max s1 s2)