while()=Printf.printf"%.f
"(Scanf.scanf"%f %f %f
"(fun a b c->let($)p q=p*.((a+.b+.c)/.2.-.q)in 1.$a$b$c$0.)**0.5)do()done