Splitting an integer list into two lists. One for even elements and one for odd elements. SML

Question

fun readlist is l (NONE) = ([]; TextIO.closeIn; l)
| readlist is l (SOME(s)) = 

  let
        val i = valOf(Int.fromString(s)) 
  in
        readlist is (l @ [i])(TextI