f :: Num a => a -> a -> a
f x y = x*x + y*y

main = print (f 3 2.4)