Задача на Haskell

[NesterovMV]

Необходимо написать программу, результатом которой будет бесконечная последовательность, состоящая из пар: на первой позиции число, а на второй - список всех его делителей без единицы, т.е. [(2, [2]), (3, [3]), (4,[2]), (5, [5]), (6, [3, 2]), ...]. Обязательно нужно использовать mod.

Я уже описал 2 вспомогательные функции, думал, помогут мне чем-нибудь, но что-то мысли дальше этих двух вспомогательных функцию не идут

-- delitel создает список всех делителей
delitel (x, i, lst) =
  if i <= x then
    if x `mod` i == 0 
    then delitel (x, i + 1, lst ++ [i])
    else delitel (x, i + 1, lst)
  else lst

-- check проверяет простое число или нет
check (x1 : xs, rez) = null xs