Problem:
Score : 700 points

Problem Statement

There are N bags, each containing two white balls. The i-th box contains two balls with integers x_i and y_i written on them, respectively.

For each of these bags, you will paint one of the balls red, and paint the other blue.

Afterwards, the 2N balls will be classified according to color.

Then, we will define the following:

R_{max}: the maximum integer written on a ball painted in red

R_{min}: the minimum integer written on a ball painted in red

B_{max}: the maximum integer written on a ball painted in blue

B_{min}: the minimum integer written on a ball painted in blue

Find the minimum possible value of (R_{max} - R_{min}) \times (B_{max} - B_{min}).

Constraints

1 ≤ N ≤ 200,000

1 ≤ x_i, y_i ≤ 10^9

Input

Input is given from Standard Input in the following format:

N
x_1 y_1
x_2 y_2
:
x_N y_N

Output

Print the minimum possible value.

Sample Input 1

3
1 2
3 4
5 6

Sample Output 1

15

The optimal solution is to paint the balls with x_1, x_2, y_3 red, and paint the balls with y_1, y_2, x_3 blue.

Sample Input 2

3
1010 10
1000 1
20 1020

Sample Output 2

380

Sample Input 3

2
1 1
1000000000 1000000000

Sample Output 3

999999998000000001

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Data.List
import qualified Data.ByteString.Char8 as B
import Control.Monad
import Data.Ord
main = readLn >>= flip replicateM breadIs >>= print . solve

solve :: [[Integer]] -> Integer
solve xs = minimum [(maxv - minv) * minimum [maximum (a : b : maxs) - minimum (a : b : maxs), maximum (a : b : mins) - minimum (a : b : mins)], (maxv - minimum (a : maxs)) * (maximum (b : mins) - minv)]
    where
        mas = minimumBy (comparing minimum) xs
        mbs = maximumBy (comparing maximum) xs
        [minv, a] = sort mas
        [b, maxv] = sort mbs
        (mins, maxs) = foldr ff ([], []) $ filter (\x -> x /= mas && x /= mbs) xs
        ff [x,  y] (acc, bcc)
            | x < y = (x : acc, y : bcc)
            | otherwise = (y : acc, x : bcc)


breadIs :: IO [Integer]
breadIs = unfoldr uff <$> B.getLine
    where
        uff b = check <$> B.readInteger b
        check (a, b)
            | B.null b = (a, b)
            | otherwise = (a, B.tail b)