adaptive-containers-0.2: tests/B.hs

import System.Environment

main = do
    [n] <- mapM readIO =<< getArgs
    print $ maximum . take (n-1) . map (\(a,b) -> ((a *2),(b *4))) $
        zip
            (replicate n n     :: [Int])
            (replicate (n-1) n :: [Int])