main = do
        let ans = answer
        print $ take 50 ans
        print $ head ans
        putStrLn $ "area=" ++ show (uncurry (*) $ fst $ head ans)
main = do
        let ans = answer
        print $ take 50 ans
        print $ head ans
        putStrLn $ "area=" ++ show (uncurry (*) $ fst $ head ans)
main = do
        let ans = answer
        print $ take 50 ans
        print $ head ans
        putStrLn $ "area=" ++ show (uncurry (*) $ fst $ head ans)