Need help solving this program in the language Standard ml (sml) and it needs to be in a single function

Problem: Write a function NotDivisible that for a given natural number r, a list of natural numbers x1..Xn, and a list of natural numbers qi..qm (n, m list of length n whose i'th element is a list of the natural numbers in the interval ki-r, xi r] that are not divisible by any of the numbers in q1..qm Example Input and Output 0), returns a NotDivisible 2 [25,50,90,11] [2,3,7]; val it = [[23 , 25] ,[] ,[89] ,[11 , 13]] int list list Problem: Write a function NotDivisible that for a given natural number r, a list of natural numbers x1..Xn, and a list of natural numbers qi..qm (n, m list of length n whose i'th element is a list of the natural numbers in the interval ki-r, xi r] that are not divisible by any of the numbers in q1..qm Example Input and Output 0), returns a NotDivisible 2 [25,50,90,11] [2,3,7]; val it = [[23 , 25] ,[] ,[89] ,[11 , 13]] int list list