Compile and Execute Haskell Online

--Pi(3.14159) = pi
--Radius = r
--Diameter = d
--Circumfrance = C
--Area = A
--Area From Radius (pi * r ^ 2)
data Area = Circle Float
surface :: Area -> Float
surface(Circle r) = pi * r ^ 2
--Diameter From Radius (r * 2)
data DiameterFromRadius = Diameter Float
surfac :: DiameterFromRadius -> Float
surfac(Diameter r) = r * 2
--Circumfrance from radius (r * 2 * pi)
data CirFromRad = Cir Float
cir :: CirFromRad -> Float
cir(Cir r) = 2 * r * pi
--Area from Diameter (pi * (d / 2) ^ 2)
data AreaFromDia = Area Float
area :: AreaFromDia -> Float
area(Area d) = pi * (d / 2) ^ 2
--Circumfrance from Diameter (pi * d)
data CirFromDia = Circ Float
circ :: CirFromDia -> Float
circ(Circ d) = pi * d
--Radius from Diameter (d / 2)
data RadFromDia = Rad Float
rad :: RadFromDia -> Float
rad(Rad d) = d / 2
--Area From Circumfrance (pi * ((C / pi) / 2) ^ 2)
data AreaFromCir = Are Float
are :: AreaFromCir -> Float
are(Are c) = pi * ((c / pi) / 2) ^ 2
--Diameter From Circumfrance (C / pi)
data DiaFromCir = Dia Float
dia :: DiaFromCir -> Float
dia(Dia c) = c / pi
--Radius From Circumfrance ((C  / pi) / 2)
data RadFromCir = Ra Float
ra :: RadFromCir -> Float
ra(Ra c) = (c / pi) / 2
--Circumfrance From Area ()
--Diameter From Area ()
--Radius From Area ()
main = do
   --print (nameOfType $ nameOfMessurement messurement)
   print (surface $ Circle 10)
   print (area $ Area 20)