addThreeNumbers :: Int -> Int -> Int -> Int addFive :: Int -> Int -> Int addThreeNumbers x y z = x + y + z addFive = addThreeNumbers 5 -- Test cases main = do print (addThreeNumbers 3 2 4) -- 9 print (addThreeNumbers 7 6 4) -- 17 print (addFive 3 2) -- 10 print (addFive 1 4) -- 10