Проблема с типами функций[Haskell]

[MariaD]

Задача такая. 1 число генерирует программа, 2-ое вводит пользователь. функция main генерит число и запускает функцию ввода 2-ого числа. функция readNumber запускает функцию печати результатов. Она запускает функции f1 и f2, которые проверяют введеное число с рандомным и выводят сколько общих или совпадающих чисел.
Какие типы надо поставить в функции, а то выдает ошибку

import System.IO
import System.Random

f1 :: Int -> Int -> Int
f1 n1 n2 = length $ filter (\ q -> (q `elem` s2)) s1
           where s1=show n1
                 s2=show n2

f2 :: Int -> Int -> Int
f2 n1 n2 = length $ filter (\ (f,s) -> f == s) z
           where z=zip (show n1) (show n2)

readNumber :: IO ()
  putStrLn "Введите 2 число"
  n2 <- readLn 
  printRes n1 n2 
  
 
printRes :: Int -> Int -> IO ()
  putStrLn "Общих цифр:"
  print (f1 n1 n2)
  putStrLn "Совпадающих цифр:"
  print (f2 n1 n2)
  if (f2 n1 n2) == 4
     putStrLn "Вы выиграли"

main = do
  putStrLn "1 число"
  n1 <- randomRIO(1000, 9999)
  readNumber n1