-- Largest Square Inside A Circle
-- https://www.codewars.com/kata/5887a6fe0cfe64850800161c

module Kata (areaLargestSquare) where

areaLargestSquare :: Double -> Double
areaLargestSquare = (*2) . (^2)
