-- My second script

-- triangle, hypotenuse, circumference

--      a         b      result
hyp :: Float -> Float -> Float
hyp a b = sqrt (a^2 + b^2)

cir :: Float -> Float -> Float
cir a b = a + b + c  where  
   c = hyp a b