result :: Int
result = firstSuchThat ((> 1000000) . computeA) $ genInput 1000000
result :: Int
result = firstSuchThat ((> 1000000) . computeA) $ genInput 1000000
result = firstSuchThat ((> 1000000) . computeA) $ genInput 1000000