module Main (main) where
f a b = a^2 + b^2 --- функция f находит сумму квадратов f(a,b) { return a*a + b*b; }
f2 = f 3 --- функция f2 одного аргумента f2(b) { return 9 + b*b; }
main :: IO ()
main = do
putStrLn ("f(5,4) = " ++ show(f 5 4)) --- печатаем f(5,4)
putStrLn ("f2(4) = " ++ show(f2 4)) --- печатаем f2(4)