KD
Size: a a a
KD
I
ch
KD
AM
AD
JF
KD
AM
VB
(
JF
КР
(
(
AD
JF
(
data Shape where
Point :: Double -> Double -> Shape
Circle :: Double -> Shape
Rectangle :: Double -> Shape
Group :: Shape -> Shape -> Shape
render :: Shape -> IO ()
render (Point x y) = ...
render (Circle radius) = ...
...
(
KD