Como escrever uma função que recebe dois números inteiros e retorna a diferença do primeiro pelo segundo - Exercícios Resolvidos de Haskell

Informe o primeiro número: 8
Informe o segundo número: 3
A diferença dos dois números é: 5

import System.IO
import Text.Printf

-- declaração da função subtrair
subtrair :: Int->Int->Int

-- definição da função subtrair
-- recebe dois inteiros e retorna a
-- subtração como um número inteiro
subtrair a b = a - b

-- função principal do programa
main = do
  -- vamos desabilitar o buffer de quebra de linha 
  hSetBuffering stdout NoBuffering
  
  -- vamos pedir para o usuário informar dois números
  -- inteiros
  putStr "Informe o primeiro número: "
  n1 <- readLn::IO Int
  putStr "Informe o segundo número: "
  n2 <- readLn::IO Int
  
  -- agora vamos chamar a função subtrair e obter
  -- a subtração dos dois números fornecidos
  let diferenca = subtrair n1 n2
  
  -- agora mostramos o resultado
  printf "A diferença dos dois números é: %d"
    diferenca